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wl yvi ijr^u a ^ ry A 1 A O A todos nuestros lectores que nos han estado 

IVlU V^li/Ao V^frv/AV«(r l/AO estimulando con sus expresiones de apoyo por 

la reciente aparición de MUNDGATAR I . 



NUMEROS ATRASADOS 
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M LINDO ATA R! 



Editorial 


O DO lo que podamos decir acerca de objetivos e intenciones de 



nuestra revista MUNDOATARI será capaz de modificar los juicios 


• y opiniones que usted se forme con la sola lectura de las páginas 
siguientes. 

En estas páginas reflejamos nuestra voluntad de proporcionar 
a los usuarios latinoamericanos de los microcomputadores ATAFU un 
producto ameno y de alta calidad. 

Recordemos que hasta hace pocos años la Informática era una . 
ciencia de enormes equipos manipulados por un grupo selecto de personas. 
Sus términos eran incomprensibles para el resto de la gente. 

Hoy sin embargo, se encuentra al alcance incluso de los niños de 
corta edad, que interactúan en base a programas diseñados para 
diferentes objetivos, confirmando un texto famoso en relación a ¡os 
microcomputadores: es la única herramienta ante la cuaf es imposible 
no aprenden 

Lo realmente importante es que el microcomputador ATARI es una 
magnífica herramienta de experimentación y diversión a su alcance. 

El formato, definición y estilo de MUNDOATARI están orientados 
a cumplir con esta premisa tan elemental, Para ello entregamos en las 
diferentes columnas conceptos, actividades y normas para posibilitar 
eJ perfeccionamiento de la persona en los diferentes niveles. 

Una palabra para los hogares, lugar inicial de aprendizaje. Nuestro 
ATAR I puede y debe llegar a ser un, motivo de reunión de! núcleo 
familiar, de modo que la familia pueda integrarse y lograr una proyección 
de unidad en el tiempo . 


Amigo lector, la ayuda que usted pueda proporcionarnos: 
sugerencias, artículos, programas, publicidad, suscripciones, etc. 
la recibiremos como estímulo para continuar con esta tarea que 
acabamos de iniciar, 

Hasta el próximo mes. 



Editor: luán Gjunwic M. 

Director: Adolfo Torrejón S, 
Representante legal: Lucia Segura G. 
Producción: SES Sistema 
Casilla: 458, Correo Ñuños, Santiago 
Teléfono: 2256579 


Esta revísta no mantiene relación 
de dependencia de ningún tipo 
con respecto a los fabricantes 
de microcomputadores ATAR i 
ni sus representantes. 


JUNIO 1987 Precio: $ 300 




Revista con información exclusiva 
para microcomputadores ATARI 


Prohibida la reproducción total 
o parcial de esta revista sin 3a 
autorización escrita de los editores. 


Resol, Exenta No. 360/6-5 1987 


Impreso por Editorial Antartica 
quien sólo actúa corno impresora 
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Técnicas 


Solicite demostración 
de este programa 
en Centros ATARI V 
d istribu i dores au ton zades 
a ¡o largo del país 


Las características gráficas del ATARI son 
particulares y han permitido un hecho histórico 
si consideramos ia velocidad de cambios en el 
hardware: la permanencia sostenida en el tiempo. 
Su estructura lo hace indicado para la educa- 
ción. Prueba de ello es la cantidad de colegios chi- 
lenos que trabajan con esta marca en sus aulas 
(ver listado de colegios en MUNDO A TARI No. 0). 


Las posibilidades de crear y mejorar progra- 
mas para ios atarianos chilenos aumenta con ia 
ayuda de una línea didáctica de software: TEC- 
NICAS. 

Este simple nombre identifica a seis programas 
en diskette, dirigidos a aquellos autodidactas que 
quieran profundizar en ios conocimientos sobre 
su computador ATAR!. 



1. LISTA DE DESPLIEGUE: 

Proporciona información so- 
bre los procesos internos del re- 
ceptor de TV, instrucción GRA- 
PHICS y Modos Gráficos, ubica- 
ción de la Lista de Despliegue en 
memoria, "‘instrucciones que pue- 
de contener una Lista y mcdifi 
cae i ones a ia misma. 



2. SCROLLING: 

Este programa informa acerca 
de la relación entre pantalla fí- 
sica y ia ubicación en memoria, 
Scroiling y mapa de memoria, 
Scrolling y Lista de Despliegue, 
Informa además sobre Scrolling 
horizontal y Scrolling vertical. 


3. SET DE CARACTERES: 

Permite utilizar la técnica de 
la modificación de! set de carac- 
teres para el desarrollo de pro- 
gramas que implican animación. 



4. INTERRUPCION DEL VER- 
TICAL BLANK: 

Esta técnica permite optimi 
zar el movimiento de Player, 
Scrolling, Flipping. Explica en 
particular una rutina para ubicar 
en la interrupción. 



5. INTERRUPCION DE LISTA 
DE DESPLIEGUE: 

técnica que permite disponer 
de una mayor cantidad de colo- 
res en pantalla que Sos usuales. 


i . li t l. i I i" F w f fl 1 ri M lJ r.vc t. 



6. PLAYER MISSILE: 

Programa que da a conocer 
las bases sobre la animación de 
figuras denominadas Player. 
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Unidad de Disco 
ATARI 1050 



La unidad de diskette ATARI 
1050 es el paso lógico que deben 
seguir todos los usuarios de equi 
pos compu tac íona les ATAR! 800 
XL ó 130 XE, que quieran am- 
pliar las capacidades dé su equi- 
po y obtener nuevas e intere- 
santes aplicaciones. 

Este periférico es un eficiente 
meca n is mo de a I ma ce na miento 
de información en un medio 
magnético, corno son los disket- 
tes de 5 1/4 pulgadas que maneja, 
permitiendo agilizar los procesos 
de lectura de programas de gran 
tamaño, como también agilizar 
la escritura de archivos de datos. 

Además de la gran velocidad 
de transferencia de datos entre 
el computador y la unidad peri- 
férica ATARI 1050, comparada 
con la unidad de cassette, otra 
importante diferencia radica en 
la posibilidad de obtener cual- 
quier información dentro del 
diskette en forma inmediata 
(random) y no secuencia limen te 
(una detrás de otra! como en eJ 
caso del cassette. 

Para operar una unidad de 
diskette ATARI 1050 se requie- 
re de un programa especial, lla- 
mado D.O,3. (Disk Operating 
System i, que viene incluido en 
un diskette con !a compra del 
equipo. Este D.O,S, (versión 2.5! 
es el encargado de controlar to- 
das las operaciones y funciones 
relacionadas con la operación de 
la diskettera, como ser; lectura 
y grabación de archivos, directo- 
rio del contenido del diskette, 
borrar archivos, copiar archivos 
de un diskette a otro, duplicar 
un diskette completamente y en 
general, todo lo necesario para 
que su computador ATARI se 
pueda comunicar con fa unidad 
de diskette ATAR f 1050. 


También, con la compra del 
ATARI 1 050 C O E LSA C OM P U- 
TACION entrega un diskette de 
regalo, conteniendo una serie de 
programas varios, que permiten 
e I m e jo r c o n o c i rn lento d e o p e ra - 
don de este periférico. 

Sin lugar a dudas, fa adición 
de una unidad de diskette ATA- 
R1 1050 a su configuración com- 
puta c i anal e abrirá un mundo 
de nuevas y sofisticadas posibili- 
dades, que no son factibles de 
lograr con una unidad de casset- 
te, especialmente en la utiliza- 
ción de programas envasados, co- 
mo son: planillas electrónicas, 
procesadores de texto, bases de 
datos, etc., que transforman el 


computador en una poderosa he- 
rramienta de apoyo personal y 
profesional. 


CARACTERISTICAS 

Inferíase serial directa al com- 
putador 

Razón de transferencia: 19,2 
Kbits/seg. 

Tiempo de acceso promedio: 
74 milisey. 

- Tiempo de acceso máximo: 
236 milisey, 

— Lógica de control incorporada 

— Capacidad de almacena mien- 
to.; 127 Kbytes 

- Chequeo de error escritura 
(CRC) 
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PROGRAMAS 


Videomanía 





Esta columna está destinada a 
tí, fanático de tos juegos, para 
mantenerte informado sobre tas 
novedades y preferencias de los 
juegos disponibles en el mercado 
internacional ATARE 

Una de las actividades propias 
de la columna será la de mante- 
ner un ranking de los 12 juegos 
que acaparan la atención de los 
usuarios chilenos del m i croco m- 
pu tactor ATAR I . 

¿Cómo puedes participar? 

Enviando una carta a: 

VI DEOMANI A 
MUNDOATAR1 
Casilla 458, Correo Ñuñoa 
Santiago 

Al reverso anota el nombre del 
juego que más te motiva a mani- 
pular con tu joystick, tu nombre, 
dirección, número de socio y 
número de suscriptos 

Todos los meses publicaremos la 
lista de los 12 juegos más solici- 
tados. 

Y además se sortearán 30 pre- 
mios entre los que envíen cartas 
a nuestra sección. 



OTRA FORMA DE PARTICIPAR... 

Otra modalidad de par ticipación en la columna de MUN DO- 
ATAR I es la de preparar una breve descripción de tu juego 
favorito, para publicarla en la revisra. 

La pauta de evaluación será: 1. Nuevos juegos de produc- 
ción actual en el mercado internacional, 2. Juegos antiguos 
que por su características no pierden vigencia, y 3. La cali- 
dad de la descripción, redacción y presentación del escrito. 

NOTA: para efectos de ilustración necesitamos una copia de! pro- 
grama que será devuelta posteriormente. 
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PROGRAMAS 



World Championship Karate 



Nombre : World Championship Karate 

Productor ; Cpyx 

Computador ; ATAR! 

Memoria : 48 Kb 


Para quienes han jugado el 
popular juego de vídeo Karate 
Champ resultará agradable en- 
contrar una versión similar para 
el computador ATARh Se trata 
de World Championship Karate, 
elaborado por la firma norteame- 
ricana Epyx. 

Consiste en un campeonato 
internacional de Karate en eí que 
intervienen hasta 2 jugadores. I u 
tarea será la de enfrentarte a un 
karate ka vestido de rojo r contro- 
lado por el computador o por el 
segundo jugador. A medida que 
vas venciendo a tus oponentes 
va cambiando el paisaje y au- 


Promedio 


CALIFICACION 
(nota de 1 a 7) 

Gráficos 
Sonido 
Animación 
Dificultad 
Originalidad 


mentando el nivel de dificultad* 

El campeonato se desarrolla 
en 8 escenarios, entre ios cuales 
figuran: Sydney, Nueva York, 
Grecia r Egipto, Sao Paulo, mon- 
te Kilimanjaro, etc. 

Los S movimientos del joy- 
stick son combinados también 
con el uso del botón rojo, con lo 
que se obtiene 16 movimientos. 

Cada combate dura 30 según-' 
dos y es interrumpido cuando 
uno de los karatekas golpea al 
otro.. En ese momento el árbi- 
tro determina el valor del golpe, 
que puede ser uno o medio pun- 
to. Gana el primero que alcance 
2 puntos. 

En resumen, se trata de un 
juego de acción ex i tan te y entre- 
tenido, Lo más destacable es la 
belleza y precisión de sus múlti- 
ples golpes. Excelente animación 
y buenos gráficos. 



BOTON LIBRE 

BOTON PRESIONADO 


t 

| Salto 


T 

Golpe de píe non salto 



Golpe de puno 


Ei 

Salto mortal hacía adelante 


— 

Avanza 



Golpe de pie de altura media 

|Ñ 

Golpe de pie alto 


X 

Barrido simple 

i 

i 

Barrido 


E 

Golpe befo hacia lado opuesto 



Golpe de puno arrodillada 



Barrido hacia al ras 



Retrocede 


-» — 

Giro y ffoipe de pie 

. 

\ 

Giro y golpe de puno 


3 

Salto mortal hacia abas 
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CRONICA 


CLUB ATARI DE CHILE 
INFORMA 


Como informamos en !a edi- 
ción especial de MUNDO ATAR i 
No. 0 (abril 1937), COELSA 
COMPUTACION ha creado el 
ATARI CLUB DE CHILE, el pri- 
mero de su especie en nuestro 
pa ís. 

Con la creación de este club, 
todos ios poseedores de compu- 
tadores ATARI -COELSA, pasa- 
rán a ser socios activos del club, 
desde el momento que remitan 
a COELSA COMPUTACION el 
Registro de Garantía, que viene 
con su equipo, con todos sus an- 
tecedentes. 

A vuelta de correo, él diente 
recibirá su credencial de socio 
del ATARI CLUB DE CHILE, 
junto a otras sorpresas prepara- 
das para éL Esta credencial de 
socio le permitirá tener acceso a 
todos los eventos que se desarro- 
llarán en forma exclusiva para 
I o s mié m b r os d el C I u b . 

Es importante hacer notar, 
que esta credencial de socio, es 
de uso exclusivo del socio titular, 
indicado en el Registro de Ga- 
rantía enviado, y por lo tanto no 
es transferidle a otras personas, 
debiendo guardarla en un lugar 
seguro para evitar su pérdida. 

Destacamos algunas de las di- 
versas actividades para los miem- 
bros del Club, preparadas por 
COELSA COMPUTACION: 


* * * 

Esperamos como siempre, 
contar con la máxima participa- 
ción de todos los socios del 
Club, para compartir, experien- 
cias v lograr el mejor aprove- 
chamiento de los computado- 
res ATAR l , 



de software 


Se ha programado la realización ^ de- dos 

desarrollo de software, uno , j q C|ub 

nara raléalos Lie este modo, todos 10 - suuiuo 

ricu*» p» '-“ssi 

que desarroHer, un W» podr án participar en 

r'sss.'rr^ <*»-*' 

premios por su colaboraron, 

* PROMOCION DE PRODUCTOS 

íftsdb - U 

earan ¡n,er esantes “ Í TARI ' » ' 

T* 8 "*» •«££ ZJ’TX 

*T Cfl "' c T 

,Jn ¿ suscn SOci ° s del - ISTa 

r enchi lpc ‘ó n ® al Cluh t 

eJern, L reQi bie n(lr Ua! a es ,■! nüri 

**vá* 7**«¡?* «*> c%, 
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MUNDOATARJ presenta a: P ro f. CHIP 

BENITO 
/v . 6502 


■Jefe de Proyecto 

Asistente 

Robotjunfor 




irimri! 

■ ■■ riai 


El bloque MANEJANDO TU 
ATAR! proporciona a nuestros 
lectores con sus 9 columnas de 
continuidad: información r pro- 
gramas y actividades para todo 
nivel. 

Usted tomará conciencia de su 
estado actual de conocimiento , 
según ef número de columnas 
en que participe. 

Si usted encuentra di f ¡cuitad en 
alguna de ellas no desespere, 
pues al avanzar en otras ganará 
experiencia y podrá retomaría 
con ef tiempo. 
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. TUTORIA 


Guía 

BASIC 

Este curso interesará a todos ios usuarios ATAR í 
que estén aprendiendo BASIC como lenguaje ini- 
cial de programación. 

Los programas base se pueden modificar a 
voluntad para variar y acomodar su ejecución. 


La continuación de GUIA ATARI BASIC con- 
siste en un juego elemental para buscar !a cantidad 
de veces que una palabra se encuentra en un texto, 
Este juego manipula strings para producir ios 
efectos esperados en la estrategia del juego, 

CONOCIMIENTOS PREVIOS 

Los indicados en el programa del número an- 
terior de MUNDO Al A R L 

a) Encender el equipo* 

b) Reconocer la presencia del BASIC, 
e) Reconocer una línea de programa. 

d) Identificar la tecla RETURM para ingresar una 
línea en memoria. 

En este programa se aplicara: 

a) Instrucción POSITION para ubicar el cursor 
en posición de pantalla. 

b) Reconocer variables alfanuméricas como con- 
junto de letras mayúsculas que finalizan con el 
signo $ . 

c) El contenido de variable alfanumerica es con- 
siderado por el ATARI BASIC como una 
secuencia de caracteres. 

d) El ATAR! BASIC debe informarse acerca de 
la DIMensión máxima para una variable aba- 
numérica. 

e) Buscar un número al azar con función RND, 

ENCONTRAR PALABRAS 

Ti pee cuidadosamente el siguiente programa. 
Recuerde que al finalizar una línea debe presionar 
la tecla RETURM, 

Cumplida esta etapa podrá ejecutarlo y desa- 
rrollar la habilidad de buscar palabras en un texto 
de 200 letras. 

Usted puede acumular un máximo de /.000 
puntos si acierta en los 7 intentos. 



DESARROLLO DEL PROGRAMA 

10-50 Formatea la pantalla para el título clel ¡ue- 
: go 


10 REM JUEGO de encontrar palabras 
20 PRINT CHR$( 125) 

30 POSrTION 2,0:? ******************** 
***************** 11 * 

4 0 POSITION 2,1:? "* JUEGO DE ENCOJV 
TAR PALABRAS * ” 

50 POSITION 2,2:? "******************* 
****************** 11 - 

60 DIK PASTA? 1200), PABRA$ ( 10), PAUSAS (1 
) 

70 PANTA$="" 

80 CUENTA- 4 : PUNTOS -0 

90 FQR J-Ü TO 6 
100 P ABRAS""" 

110 POSITION 0,10:7 " DIGITE una pala 
bra de CUENTA;" letras 11 
120 INPUT PASEAS 
130 L=LEN ( P ABRAS ) 

140 IF L<=CUENTA THEN 190 

ISO POSITION 0,20:? " INGRESO una pala 

bra con letras" 

160 POSITION 0,21:? " PRESONE una tecl 

a y continua" 

170 INPUT PAUSAS 
180 GOTO 100 
190 ^ CHRS (125) 

195 POSITION 0,10:? "ESPERE FQRMATEAND 

O EL TEXTO 

200 FOR K=1 TO 200 

210 AZAR= INT ( RND ( 1 ) *L } +1 

2 2 0 P ANTAS ( K , K ) =PABRA$ t AZ AR , AZAR ) 

230 NEXT K 

300 REM PANTALLA DE BUSQUEDA 
310 ? CHR$( 125) :POKE 82,0 
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TUTORIA 


60 Dímensiona las variables a If anu meneas que 
utilizará: 

PACTAS : Texto total con 200 caracteres 
PABRA$ : Palabra ingresada para buscar en 
el texto 

PAUSAS : Carácter utilizado para crear una 
pausa 

70 1 niela liza el TEXTO como string nulo 
80 Inicia liza las variables numéricas: 

CUENTA : Número de letras de la palabra in- 
gresada (4) 

PUNTOS : Cantidad de puntos obtenidos (0) 
90 Cíelo para 7 intentos. Variable CONTROL J 
100 Inicial iza la palabra como stririg nulo 
110-180 Ingresa la palabra a buscar 
190 Carácter específico que limpia Ea pantalla 
195 Mensaje indicando una pausa para que ATAR! 
cree un TEXTO 

200-230 Ciclo para crear un string en la variable 
PAN TAS con los caracteres elegidos al azar de 
la variable PARRAS 

30CL37G Presenta una pantalla con la palabra y el 
texto para que el usuario interactúe buscando 
e i número d e v e ces q ue I a pa I a b ra i n g resa da se 
repite er i el texto 

390 Ingresa él número en fa variable numérica NUM 
A0S Inicia liza la variable REPE T que contendrá el 
número de repeticiones que buscará el ATARI 
( 0 ) 


410-440 Rutina de manejo de string para buscar el 
número de palabras PARRAS en P ANTAS. 

i 

Detalle: 

410 Establece ciclo entre los limites 1 y 200 que 
corresponden al string P ANTAS 
■420 Medíante ef uso de índices para el string PAN- 
TAS elige el que corresponde a la primera pa- 
labra, en función del largo del string. 
Condiciona fa dirección según la comparación 
con la palabra PARRAS: 

a) Si son iguales: 

- Incrementa la variable contadora del nú me 
rodé repeticiones REPET 

— Incrementa la variable K en el largo de pa^ 
labra menos uno, 

b) Si son diferentes: 

- Incrementa en uno (N EXT) la variable con- 
trol def ciclo (K) 

450 Compara el valor calculado por el ATAR ! y el 
usuario'. Si son iguales incrementa en 1.000 la 
variad Je contadora de puntos 
500 Limpia la pantalla e incrementa la variable nú- 
mero de letras de palabra (variable CUENTA). 

ACTIVIDADES DE SUPERACION 

1, Permitir que participen dos jugadores y eJ 
ATARI, 


315 POSITION 12,1;? PABRA? 

320 POSITION 0,2:? ******************** 
****** ************ * * * * . 

33 D POS I TI OH 0,4;? P ANTAS 

340 POS I TI ON 0,10:? "*********#******* 

************* **********n - 

350 POSITION 0,14;? "BUSQUE ■ 

11 * 

36 0 POSITION 0,15:? 11 el numero de pal 
abras tf ;PABRA$ 

37 0 POSITION 0,16:? " que aparecen en 
el TEXTO * - w 

360 POSITION 0,16:? '■ DIGITE el numero 

Tí 

330 POSITION 2,19: INPUT NUM 
400 REM BUSQUEDA 
405 REPET=Q 
410 POR K = 1 TO 200 

420 TEAP 4 50 : IF PANTA? ( K , K +L-1 }< >PABKA 
$ THEN 440 

430 REPET=REPET+1:K=K+L-1 
440 NEXT K 

450 IF NUM=REPET THEN PUNTOS=PUNTOS+10 
00 : GOTO 500 
460 ? CBRSÍ125) 

4 70 POSITION 0,10:? ’TERDIO " 

480 POSITION 10,11:? "eran " ; REPET; 11 ve 
ces 11 ; 

490 POSITION 0,20:? "PRESIONE una te el 
a y continua" 

495 INPUT PAUSAS 

500 ? CHR$(125 ) ;CUENTA=CUENTA+Í 

510 NEXT J 

520 ? CHR$ (125) 

900 END 



MUNDOATARI recibe artículos, pro- 
gramas y columnas de continuidad para 
ser editadas en los próximos números. 

Estas columnas serán evaluadas y anali- 
zadas de acuerdo a nuestra línea editorial. 

Previo a la publicación de un aporte, la 
revista enviará el dinero correspondiente 
a su pago, constituyéndose por este hecho 
en propiedad de la revista. 

Las contribuciones no aceptadas por la 
revista serán devueltas a sus autores. 

Los artículos deben ser escritos a máqui- 
na o en procesador de textos. Los progra- 
mas, grabados en casete o diskette y lis- 
tados además en impresora. 

La publicación de cualquier material en 
las páginas de MUNDOATARJ estará su- 
peditada a las disponibilidades de espacio 
o a las necesidades de la edición. 


CASSETTE 





Controlando 

la casetera 


SOLUCION A NUMERO ANTERIOR I 

La respuesta correcta a la pregunta planteada en el 
número anterior era: LIST “C: "fENTER *' C 

En efecto, estas Instrucciones permiten grabar un 
programa fraccionado sin riesgo de borrar otras líneas que 
existan en memoria. 

Sin embargo , es conven ¡en te hacer algunos a (canees: 

L Se debe asignar claramente eí rango de i ripeo. El 
usuario A dígita desde línea 1 a 255 y el usuario 8 
de la 256 al final . 

2. AÍ i untar ambas partes con ENTER "C:" se debe 
ispear previamente NEW o encender de nuevo eí 
computador. Recuerde que cualquier línea remanen- 
te de otro programa que no sea reemplazada por otra 
de igual número será incorporada aí programa final e 
interferiré en su ejecución. 


En el número anterior tratamos los comandos 
usados para grabar y cargar programas medíante Ja 
casetera. También comentamos la estructura de un 


cada archivo tiene su propio tiempo de inicio y de 

finalización (EOF), los cuales inciden en e! espacio 
útil de fa cinta. 

Ua unidad de archivo en casete es un bloque 
de 123 bytes. Un archivo menor a esa cantidad de 
bytes ocupa al menos un bloque, un archivo de 
mayor extensión ocupara los bloques que sea nece- 
sario para contener toda la información. La estruc- 
tura de un archivador de correspondencia ilustra 
mejor esta forma de archivo: fa unidad es fa hoja 
de carta: Hay cartas largas que se extienden a va- 
rias fiojas y hay cartas muy breves de una hoja 
pero no se encuentran fracciones de hojas. 

El ATAR! BASIC maneja archivos de datos 

con fJ °s instrucciones de grabación y carga respec- 
tiva mente: 

- PRíWT#/[NPUT=# 

- put4/get# 

En este número veremos las dos primeras, 


archivo en cinta magnética. Estos conceptos esta- 
rán presentes continuamente en fos próximos nú- 
meros de esta columna, 

Eloy iniciaremos la técnica para manejar ar- 
chivos de datos en casete. 

B> ARCHIVOS DE DATOS 

El casete permite manejar archivos de datos, 
esto es, grabar información, mantenerla almace- 
nada en ese medio magnético y posteriormente re- 
cuperarla. 

Los archivos en casete comparados con el 
diskette tienen algunas limitaciones que menciona- 
remos a- título informativo: 

- son más lentos 

- los datos deben ser accesados secuencial- 
rnente, o sea, leídos en orden y de princi- 
pio a fin 

-- no se puede agregar ni borrar información, 
salvo que se regrabe completamente. 

¿Cuánta información cabe en un casete?. En 
las especificaciones de la casetera dadas en el nú- 
mero anterior de MIJNDOATARÍ se menciona una 
capacidad aproximada de 100 Kb. en un casete de 
od minutos. Obviamente depende esto de la canti- 
dad de archivos grabados en ella. Recordemos que 


ABRIR Y CERRAR CANALES 

A diferencia de la técnica usada en la graba- 
ción de programas, para grabar o cargar archivos 
de datos se debe abrir o cerrar canales de comuni- 
cación entre el computador y la casetera, Nosotros 
hacemos lo mismo cuando queremos hablar por 
teléfono con una persona determinada: marcamos 
un numero específico y asi obtenemos una vía de 
comunicación con ella. 

En la práctica se usa 2 instrucciones básicas 
que se ilustran en eí ejemplo siguiente: 


OPEN-H B, o, jj C;’ 


me : 1 t ? i**.-- ,. ' ■ ■ ,.<j . ■ ■ ■ 


««» ge s $ :íü sí.* tit&m 
liafiig iMijU 

££££&»& 


T= 


imn r , r jfi , 


1 


Abre esnat f pare grabar 
información en cassette 


2E3 

■TU- 

im 




O 


J 


GPEN 4 l r 4 , Q, "C:' 


Abre sana? ¡f para cargar 
ff) formación desde cassette 


El número 1 que figura en UPEN 1 se refiere 
al número de canal de comunicación, que puede 
ser indistintamente 1, 2, 3, 4 ó 5. Aún cuando hay 
3 canales en total (0-7) BASIC ocupa los canales 


Í2 


MUNDOATARJ 



CASSETTE 


Ai ejecutar este programa efectuamos la prue- 
ba de grabar una línea que usted escribe fibre- 


Q r 6 y 7 para funciones específicas. 

En el segundo parámetro se usa los números 
8 para grabar en cálete ó 4 para cargar informa- 
ción desde la ca setena. 

En el tercer parámetro consideraremos el nú- 
mero 0 como velocidad standard* 

La letra "CA (con comillas y dos puntos) se 
refiere a la designación abreviada de casete ra como 
periférico, 

CREACION DE ARCHIVOS CON 
PRINT 4 / INPUT 4 

Estas instrucciones sirven para grabar o cargar 
cualquier información proporcionada en forma 
textual o en una variable alfanumérica (string) 

10 OPEN #1* 8, Q r M C:" 

20 PRINT #1; "YO LEO MUNDOATARI" 

30 GLOSE 4l 

o bien: 

10 Dm ASÍ20) : A$ “ "PRUEBA 1234567390" 

20 PRINT #1;A$ 

30 GLOSE 4l 

En ambos casos ef computador emite 2 soni- 
dos BEBP y queda a la espera de que pongamos ¡a 
cinta al comienzo y presionemos REGORD/FLAY 
en la casetera. Al momento de dígitar cualquier 
teda en el computador se inicia el proceso de gra- 
bación. 

La línea 30 cierra el canal, lo que hace poner 
en la cinta la marca de fin de archivo (EOF), que 
indicará en el futuro donde termina el archivo. 
Ei hecho de no cerrar ef canal significa que arries- 
gamos perder los últimos datos de la grabación. 

Digite el siguiente listado para practicar lo 
aprendido: 


10 GRAPHICS o 

15 Din ORI T c 4 0 ' r C O P I A % i 4 O > 

2 0 P R INI "Es c r i b a m ens-ia je? de? I ] i. n ea" : 
PRINT 

25 INPUT ORI* 

3 0 I-' R I N T " P repare cinta, P res i o n e R & 0 ü 
RD+PLAY" 

3 5 P RINT " D i g ]. t; e u n a t e cía p a r a «.:• m p & 7 a 
r 11 

40 UPEN #1 1 8, 0, ,J C: 11 
45 PRINT #l;ORÍ$ 

50 CL05E til 

55 PRINT ¡PRINT SPRINT ÉI Díqite ÜDNT+RL 


TUF 

'N para seguir" 



60 

STOP 



65 

REM vCüfl&ÚNVO * r 



70 

PRIN7 CHR$U£5í 



75 

11 

PRINT "Prepare cií 

~i t 

a. , P r esion e P L. A V 

80 

PRINT "Diqifce una 

t 

e I a p a r a e m p e 7. a 

r M : 

PRINT SPRINT 


35 

OF'EN #ií, 4, 0, "Cs " 



90 

INPUT f COPIA* 



95 

GLOSE #2 



J. 00 

PRINT "COPIA 4- "i 

i n 

I u 

PRINT CÜF : - 1 A 4 

;l Ó5 

PRINT "ÜEI$= " ; s \- 

: 'F! 

INT ORI* 


mente en la variable GRIS y posteriormente la 
recuperamos en la variable COPIAS para compa- 
rar finalmente ef contenido de ambas variables. 

Ef listado incluye mensajes orientadores para 
informar al usuario de Jo que debe hacer, de modo 
de no sorprenderlo con signos de interrogación 
o sonidos imprevistos,. 

Comentario del listado: 

30-50 Programa para grabar ORI$ a! casete 
15 Dímensionamíento de las variables GRIS y 
COPIAS 

40 Apertura del canal 1 para grabación 
45 Grabación de OR 1$ 

50 Cierre del canal, que genera un EOF 
60 Detención momentánea para pasar al próxi- 
mo paso. El programa continúa con fa instruc- 
ción CONT 

75-95 Programa para cargar archivo desde la case- 
tera a la variable COPfA$ 

75-80 Edición de instrucciones 
85 Apertura de canal 2 para cargar (el número 
puede ser cu a [quiera entre 1 y 5 siempre que 
esté libre. El canal 1 en este caso ya estaba 
desocupado) 

90 Carga del archivo a COPIAS 
100-105 Edición de Jas 2 variables en pantalla 
para comparar contenidos. 



PROBLEMA PARA ELPROXIMO NUMERO 

1 . Modifique el listado para grabar y cargar un mensaje 
de 3 I meas de largo. 

2. Modifique el listado para grabar y cargar 2 variables 
consecutivas de 40 caracteres cada una. Por ejemplo: 
NOMBRES, DIRECCION®. 

{Solución en ef próximo número) 
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□ ISKETTE 



La continuación de esta columna desarrollará 
actividades prácticas para interactuar con los ar- 
chivos almacenados en el directorio utilizando e! 
MENU del DOS 2,5. 

El primer artículo menciona el Menú para ini- 
cial izar un diskette con la opción Formateo. 

Se describió en extenso la constitución del 
diskette como las estructuras de almacenamiento 
de nombres de archivo, (DI REC FGR1 GL 

ACTIVIDAD NoJ 

Inicial i ce la configuración Unidad de Disco 
y mi croco mputador cumpliendo las siguientes 
etapas: 

a) Encienda la Unidad de Disco. 

b) Inserte el diskette DOS 2.5. 
c } E n cíe n da el telev íso r . 

d) Encienda e i computador. 

Aparece el mensaje READY indicando que el 
BASIC se encuentra incorporado en memoria. 



Dominando 
la 1 050 

ACTIVIDAD Na 2 

Inserte un diskette formateado, ver artículo 
de! número anterior de MUNDO ATARE 
D ¡ y i te e I s igt j ¡ente p rog ra ma : 

to REM PROGRAMA No. 1 
20 FOR J ”0 TO 255 STEP 16 
30POKE 7tO r J 
40 NEXT J 
50 END 

Ejecute el programa con instrucción RUN. 
Observe los cambios de color de Ja pantalla. 
La instrucción PQKE modifica e¡ valor para la lo- 
calización que se indique, en este caso es la 710. 

ACTIVIDAD No. 3 

Salve este programa en el diskette, 

La instrucción SAVE del ATAR] BASIC per 
mlte almacenar el programa residente en memoria 
en el diskette que se encuentra en el Interior de la 
Unidad de Disco, 

Esta instrucción requiere de caracteres que en 
su conjunto identifiquen con un nombre a este 
programa. 

ACTIVIDAD No. 4 

E I n ó m b r e es C O L. O R , 

Agregue los caracteres correspondientes para 
que se ejecute la acción de SALVAR (Grabar). 
Recurra a: 

a ) Nú mero a n ter i o r d e M U N DO AT A R I . 

b) Manual de la Unidad de Disco. 

El nombre debería ser: 

SAVE "P; COLOREAS" 

y p res ierras latee) a R E T L J R k J . 

Con esta operación inmediatamente se en- 
ciende la luz roja de la Unidad de Disco indicando 
que la información se encuentra en proceso de 
transferencia, 

ACTIVIDAD No. 5 

¿Cómo ver este nombre en el Directorio? 
Para cumplir con estas acciones, se necesita 
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DISKETTE 


de! MENU del DOS 2,5, 

Este menú se llama con la palabra DOS. 


PRECAUCION: Al real] zar este llamado es 
imprescindible que en el directorio del disco pre- 
sente en la dísketera se encuentren los archivos 
DUP.SYS y DOS.SYS. 

SE el diskette de trabajo no lo contiene, cam- 
bíe por el diskette del DOS 2,5, 

Si el llamado es correcto se coloca en acción 
nuevamente la Unidad de Disco y en la pantalla 
se despliega el menú de trabajo que sigue: 




DISK OPER ATI NG SYSTEM II VERSION 2.5 
COPYRIGHT 1984 ATAR) CORP. 


A. DISK DIRECTORY 

B. RUN CARTRIDGE 

C. COR Y FILE 

D< PELETE FILE(S) 

E. RENAME FILE 

F. LOCK FILE 

G. UN LOCK FILE 

H. WHITE DOS Flt-ES 


I. FORMAT DISK 
J DUPLICATE DíSK 

K. BJNARY SAVE 

L. BINARY LOAD 

M. RUN AT ADÜRESS 

N. CREATE MEM. SAV 

O. DUPLICATE FILE 
P* FORMAT SINGLE 


Si cambió al DOS 2.5 Master, inserte nueva- 
mente e! disco de traba ¡o en que salvó ¡grabó) el 
p rog r a ma C O L O R , 

Seleccione la opción A y presione la tecla 
RETURN dos veces y ... ahí esté el archivo que 
usted grabó. 


ACTIVIDAD No. 6 

/ 

Regresemos ai programa: 

Para ello, presione RETURN y aparece nue- 
vamente el MENU. 

'■ La opción R ríos permite dejar este menú y 
retornara! lenguaje ATARI BASIC. 

El mensaje identif icador READY se encuen 
tra con nosotros. 

* 

ACTIVIDAD No. 7 

Ejecutemos nuevamente nuestro programa 
COLOR.BAS. Digitamos RUN, y no pasa 
NADA. Es decir, el programa se nos fue. ¿Por 
qué?. En los ATARI 800 si no se recurre a crear 
un archivo de almacenamiento transitorio llamado 
MEM SAV la información del programa BASIC 
residente en memoria desaparece y es ocupado 
por el programa del DOS. 

COMENTARIO: La situación es diferente 
para eí ATARI 130 XE, en que si el diskette ini- 
cial de partida contiene el R AMDISK.COM el 
banco secundario permite contener simultánea- 


mente ambos programas. 

El programa lisiado a continuación, llamado 
MINIMENU es un programa BASIC que puede in- 
corporar las principales tareas del DOS directa- 
mente sin perder el programa residente en me- 
moria. 


30000 REM MINIOOS 2,5 versión -1 para 
MUNDOATARI MAYO 19 87 

30001 REM para usar en sus programas 
borre lineas # 

30030 DIM ARCHI${3G > , ANS$ { 1 ) , ARCH1S í 12 

30035 = " ”:B$(40}=" ":B?(2)=B$ 

30040 GRAPHICS OiPOKE 16,112:POKE 5377 
4,112:POKE 752,1 


30045 POSITION 

0,0:? 

ir 

FUNCI 

ONEfí DOS 2.5 
30048 POSITION 

2,1:7 

it - 

,T SES' f : 

POSITION 0, 

2:? "SISTEMA' 1 

3 G 050 POSITION 

6,4:7 

,T A. 

DIRECTORIO" 

30052 POSITION 

6,6:? 

" B . 

LENGUAGE BA 

SIG" 

30054 POSITION 

6,8:? 

h D> 

BORRA ARCHl 

VQ í S > " 

30056 POSITION 

6,10 r? 

H E , 

CAMBIA NOM 

BRE" 

30058 POSITION 

6,12 ;? 

n p _ 

PROTEGE AR 

CHIVOS" 

30060 POSITION 

6,14;? 

" G • 

DESPROTEGE 

ARCHIVOS" 

30062 POSITION 

6,16:? 

" I. 

FORMATEA D 

OBUE DENSIDAD 11 
30070 POSITION 

0,18: ? 

ii 

Z. fina 

liza DEMOSTRATIVO # 
30080 POSITION 0,20:7 

1 “J 

Tl DIGITA letra 

corresponda a 

FUNCION lf ; 

: POKE 752,0 


30082 INPUT ANS$ 

30084 IF AN S $ - ” Z M THEN GOTO FIN 
30090 IF ANS?<’ , A" QR ANS$>"I" OR ANS$ = 
" « OR ANS$ = ,, H ,t OR ANS$="C" TREN 3ÜQ40 
30100 KEY-ASC ( ANS$ )-64 : IF KEY=2 THEN ? 
CHR$ ( 125} : END 

30110 ? CHR$(125) ¡POSITION 0,0:? « 
DIRECTORIO 
;T RAP 30900 

30120 TRAP 30150: GLOSE #2:QPEN #2,6,0, 
n [) ¡ # * i» * GUENTA=2 

30130 CUENTA=CUENTA+1 ; INPUT #2,ARCHI$: 
POSITION 3, CUENTA:? ARCHI$:IF ASCfARCH 
] >47 THEN 30150 

30140 CUBNTA= CUENTA* 1 : INPUT #2,ARCHI$: 
POSITION 3, CUENTA:? ARCHIN ; : IF ASC(ARC 
HI$(1,1) ) <47 THEN 30130 

30142 FOR TIME-1 TO 50Ü:NEXT TIME: GOTO 
30130 

30150 CLOSE tt 2 : ON KEY GOTO 30100,30160 
,30160, 30165, 30230, 30340,30400,30160, 3 
0460 

30160 POSITION 0,20:? " PRESIONA 

RETURN para MENU 11 ; : INPUT ANS$ 

¡GOTO 30040 

3 016 5 POSITION 0,2:? lr BORRA ARCHIVO 
RETURN finaliza..** " ; 

30170 POSITION 0,20:? Ir DIGITA nombre 
de ARCHIVO gue borra ";:INFUT ARCH 

1 $ 

30180 IF ARCHl $ - ,TM THEN 30040 
3 0190 FOS1TION 0,22;? " BORRA 11 } ARCH 
S/ N ? 'Vi INPUT ANS$ 

30200 IF ANS$="S" THEN 30210 
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DISKETTE: continuación 


30205 POSITION 0,21:? B$;:POSITION 0,2 

2 :? B$ ; ¡POSITION 0,23;? BS ( 1 , 3 8 ) ; ¡ GOTO 
3 010 5 

3 0 210 L=LEN { ARCH 1 $ ) : ARCHI $ í 3 , L + 2 ) -ARCH 
1?{1,L): ARCHI $ ( 1, 2 ) = "D : 11 : ARCHI $= ARCHI $ 

( 1 ,L+2 ) 

30220 XIO 33, #2,0,0, ARCHI $ : GOTO 30110 
30230 POSITION 0,2:? fl CAMBIA NOMBRE 
RETURN finaliza. . . , H ; 

302 3 5 POSITION 0,20:7 11 DIGITA nombre 
de ARCHIVO que cambia 11 ;¡ INPUT ARCH 

1$ 

30240 IF ARCHI 11 ,T THEN 30040 

30250 POSITION 0,22:7 w CAMBIA ,f ; ARCH 

I$; n S/N ? w ; : INPUT ANS$ 

30252 1F ANS$= H S" THEN 30270 
30255 POSITION 0,21:7 B$; ¿POSITION 0,2 
2:7 B$ ; : POSITION 0,23:? 35(1,38);: GOTO 
30230 

30270 L=LEN(ARCH1$) : ARCHI $ ( 3 , L + 2 ) “ARCH 
1 5 C 1 , L ) ; ARCHI $ ( 1 , 2 ) = H D : H : ARCHI $=ARCH I $ 

( l,L+2> 

30280 POSITION 0,21:? B$;:PQSITION 0,2 
2:7 BS ; : POS I TION 0,23:7 BS(l f 38); 

3 Ü 2 fl 5 POSITION 0,20:? ,f DIGITA NUEVO 
nombre de A RCHIVO *' ; : I NPÜT ARCH 

15 

30290 IF ARCH1$= ,TH THEN 30040 

30300 POSITION 0,22:? 11 CAMBIA w ; ARCH 

1$;" S/N ? " ; : INPUT ANS$ 

30302 IF AN S $ = " £ " THEN 30320 
30306 POSITION 0,21:? BS; ; POSITION 0,2 
2:? BS; ¡POSITION 0,23:7 BS í 1 , 3 8 ) ; : GOTO 
30230 

30320 L=LEN( ARCHI S ) : ARCHI $ ( L+l AR 
CHI $ ( L+2 ) = ARCHI S 

30330 XIO 32, #2,0, 0 , ARCHI $ : GOTO 30110 '' 

30340 POSITION 0,2:? " PROTEGE ARCHIVO 
RETURN finaliza. . 11 ; 

30345 POSITION 0,20:? 11 DIGITA nombre 
ARCHI VO que protege Tl ; ¡INPUT ARCH 
15 

30350 IF ARCR1$=" 11 THEN 30040 

30360 POSITION 0,22:7 " PROTEGE "jARC 

Hl $ ; H S/N ? M ; : INPUT ANS$ 

3Q362 IF ANS$ = H S f ' THEN 30380 
30370 POSITION 0,21:7 BS; ¡POSITION 0,2 
2:7 B$; ¡POSITION 0,23:? B$ í 1, 38 ) ; ¡GOTO 
30340 

3 0 380 L-LEN í ARCH1S í : ARCHI 5 ( 3 , L+2 ) -ARCH 
1$( 1,L) : ARCH I$tl,2)- ,T D¡ ÍI : ARCH I $ = ARCH I $ 
í 1 , L+2 ) 

30390 XIO 35, #2, 0,0, ARCHI $; GOTO 3011 Q 
30400 POSITION 0,2:? " DES PROTEGE ARCHI 
VO RETURN finaliza.. 11 ; 

30405 POSITION 0,20:? n DIGITA nombre 
ARCHIVO que desprotege 11 INPUT ARCH 
15 

30410 IF ARCHI $ - ,MT THEN 30040 

30420 POSITION 0,22:7 "DESPROTBGB H ;A 

RCH1S; u S/N 7 íf ; ; INPUT ANSS 

30422 IF ANS$= ÍI S K THEN 30440 

30430 POSITION 0,21:7 E$; ¡POSITION 0,2 

2:7 B$; ¡POSITION 0,23:7 B$ íl , 38 };: GOTO 

30400 

30440 L=LEN C ARCHI 5 ) : ARCHI $ í 3 , L + 2 ) “ARCH 
15 í 1,L) : ARCH I § { 1 , 2 } = TI D ■ ,T i ARCHI $~ARCH I $ 

( l,L+2) 

30450 XIO 36, #2,0,0, ARCHI $ : GOTO 30110 
30460 POSITION 0,2:7 "FORMATEA DOBLE D 
ENS # 0 finaliza. . 

30470 IF ARCHIVO' 1 THEN 30040 
30475 TRAP 30510¡OPEN # 2 , 6 , 0 , "D ; * . * " 


304G0 CLGSE #2:POSITION 0.20:7 ,r E 

XISTEN ARCHIVOS EN DISKETTE Tl ; 

30485 POSITION 0,21:7 " 1 FORMATEA 2 
DIRECTORIO .DIGITA #(1-2)"; 

30488 CLOSE #1:ÜPEN # 1, 4 , 0 , "K : 11 : GET #1 
, A:NUMERO-A“4 8 : IF NUMEROS THEN 30100 
30490 IF NUMEROO! THEN GOTO 30480 
30500 XIO 254, #2, 0,0, "DI: " 

30900 POSITION 0,20:? « DIREC 

TORIO VACIO M ;:EOR TIME-1 

TO 1000 : NEXT TIME: GOTO 30Ü4G 



ACTIVIDAD No. 8 

La actividad 4 nos salva de la posibilidad de 
pérdida de la información (programa). 

La instrucción LOAD del ATARI BASIC per- 
mite trasladar información desde la memoria mag- 
nética (diskette) hacía la memoria del computador. 

El formato es; LOAD J, D: NOMBRE.EXT" 

Digite la instrucción que recupera el programa 
COLOR. BAS y presione la tecla RETURN 

Á 

EJ texto digitado es: 

LOAD "D:COLOFLBAS" 

Ejecute el programa y observe que reside nue- 
vamente en la memoria. 

Si usted es un nuevo usuario de Ja Unidad de 
Disco comprobará que la velocidad de transferen- 
cia de la información bien vale ía diferencia de su 
precio, 

ACTIVIDAD No. 9 

La Unidad de Disco permite reconocer los 
errores operad o nal es. 

Digite: LOAD"D; COLOR" y presione RETURN 

¿Qué mensaje envía su ATARI? 

ERROR 170 

Esto significa que este archivo no se encuentra 
en el directorio del diskette. 

Saque el diskette de la Unidad de Disco y di- 
gite: loadlo ¡color, bast 

¿Qué mensaje edita su ATAR I ahora? + 
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MEfVfGRix es la adaptación a las 
potencialidades del computador ATA- 
RJ de un simpático juego conocido a> 
mo Simón. 

i I juego tiene como objetivo ejerci- 
tar Ja habilidad para mem orizar una 
secuencia de sonidos y colores, cuyo 
orden varía en cada juego, 

Los sonidos posibles en una vuelta 
son cuatro (do, mi, sol, do) y los colo- 
res correspondientes son también cua- 
tro (rojo, celeste, amarillo y verde). 
El juego puede aumentar ef nivel de 
dificultad hasta llegar a una secuencia 
de 1 7 sonidos. 

El desarrollo del juego es siempre el 
mismo: empieza con un sonido y luego 
va sumando otro hasta llegar af máxi- 
mo elegido. El jugador debe recordar y 
reproducir correctamente el modelo 
presentado y luego digítar en el com- 
putador utilizando las teclas; 

EE 

00 - 

En la última vuelta el computador 
reconoce el triunfo. En caso contrario 
corrige el error y vuelve al menú para 
Iniciar un nuevo juego, Ef jugador 
pierde igualmente si su tiempo de res- 
puesta -es mayor de 4 segundos en 
cada digitación. 

Comandos del menú: 

Se usan las siguientes teclas: 

START: para iniciar el juego 
QPTIQN: aumenta el nivel de dificul- 
tad en uno cada vez. Rango de 1 a 9 
SE LECT: selecciona las dos opciones 
de juego disponibles: standard y 
competencia. La primera opción co- 
rresponde af juego descrito hasta 
ahora. Competencia es una modali- 
dad donde ios ingresos de sonido 
son efectuados por el usuario, quien 
debe repetir la secuencia y aumen- 
tarla en uno cada vez. 

Comentario def listado; 

1. Los 4 colores utilizan ei diseño de 
player, que se encienden o apagan 
(líneas 310-480) 

2, La pantalla tiene una Lista de Des- 
pliegue modificada, combinando 
lineas de modo 1 y 5 (510-550) 

3. En la variable A$ se almacena Ja 
clave def juego (10204 050) 

4, Las demás rutinas aparecen comen- 
tadas en eJ listado con REM. 

¡Hasta eJ próximo número! 


JUEGO DEL MES: 


CONFIGURACION 

REQUERIDA 

- Computador 800 XL. 

1 30 XE ó 600 X¡_ ( ver 
modificaciones a la vuelta) 

— Case teta o diskettera 


Memorix 

Cada mes publicaremos un juego 
no bélico que desarrolle habilidades. 

Se aceptan contribuciones 
de nuestros lectores. 



FOJO , ROJO, 
VERDE, AZUL 
¿ ? 


VERDE, VERDE 
ROJO, AZUL ? ? 


i TIEMPO f 
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TIPIANDO: continuación 

» 


*) Para adaptar eí juego ai ATAR I 600 XL se debe ha- 
cer tos siguientes cambios: 

— - Sliminar tas líneas 51 2 y 575 

Los 10 primeros DATA de linea 520 quedan asi: 
1 12 f 1l2 f 112 , 71, 98, 63, 6 , 74, 160, 59 ... 

- Los 6 ú i timos DATA de línea 530 quedan así : 
„ t 139, 63, 6, 65 f 106, 59 

Eso es todo... i Que se diviertan I 


10 DIM AS( 2Q) ,B$Í9),CS[11),D$U1) 

20 D-D ; J=-l : TRAP 40 

30 GLOSE # 1 : OPEN #1 , 12 , 0 , n S : ,T 

35 = M STANDARD " : D$ = '* COMPETEN CIA" 

40 GRAPHICS 0:POKE 752,l:POKE 7lü,52:P 
OKE 708,36 

45 FOR Z = D TO 3:PÜKE 53248+Z , 0 : NEXT 2: 
SOÜND 0,0, 0,0 

50 DL-PBEK ( 560 } +PEEK í 5S1 ) * 2 56 
60 POKE DL+9 , 7 ¡POKE DL+lÜ,7:POKE DL+11 
, 6 : POKE DL+12 , 6 : POKE DL+13,6:POKE DL+1 
4,6 

70 POKE DL+27,lX2:PQKE DL+28 , 112 : POKE 
DL+29 , 112 

80 POSITION 6,4:? "MEMORIX" : POSITION 3 
,5:? C$ : POSITION 3,6:? D$ 

90 POSITION 4,13:7 "NIVEL* 1 

100 POSITION 1,12:? "> <" :POSI 

TION 27,12:? "* START *" 

105 POSITION 2,12:7 B$ 

110 REM MANEJO MENU 
130 P-PEEK ( 53279) 

150 IF P=7 THEN 130 
160 IF P<> 3 THEN 230 
170 D=D+1 

190 IF D=10 THEN POSITION 2,12:? " 

« : ;FOR T=1 TO I5Ü:NEXT T:D = Ü 

: GOTO 130 

2 00 BS { LEN ( B$ J +1 ) =CHR$ {D+17 6 ) : POSITION 
2,12:? BS 
210 A-l~i 
220 GOTO 130 
230 IF POS THEN 280 

240 FOR X- 3 TO l3:POSITION X,S:GET #1, 
KíPOSITION X , 5 : PUT #1 , K-12 8 *J : C$ ( X“2 , X 
2 } =CHR$ ( K-128* J ) 

250 POSITION X , 6 : GET # 1 , K : PÜSITI ON X,6 
:PUT #l,K + 12 8*J:DS(X-2,X-"2> =CHR$ ( K+128 
*J) 

260 NEXT X 
270 

280 IF P = 6 AND J=-l THEN 600 
285 IF P~6 AND J=1 THEN 1730 

290 GOTO 130 

291 STOP 
300 REM 

310 REM DISEÑO DE PLAYER 

320 MEMTOP-PEEK (741) +FEEK{ 742 ) *256-1 

330 PMBASE=INT( (MEMTOP-102 4 ) /10 2 4 )*102 

4 

340 ADJTOP=PMBASE+384 

350 POKE 742, INT ( ADJTQP/256 ) : POKE 742, 

ADJTOP-256*PEEK( 742) 

360 POKE 54279, PMRASE/256 

370 POKE 53277,2 

300 POKE 559 42 

390 PÜ-PMBAsÉ + 51 2 - Pl-PMBASE+640 : P2-PMB 


ASE+768 : P 3=PMBASE+8 9 6 

400 FOR Z = 37 TO 62:POKE P0 + Z , 2 55 : POKE 
p 1 4-7 7^5’ NFXT 7 

410 FOR Z - 67 TO 94;POKE P2 +Z , 2 55 : POKE 
P3+Z 265 : NEXT Z 

450 FOR X-0 TO 3 : POKE 53 2 56+X, 3 : POKE 7 
0 4 + X , 0 : NEXT X 

470 POKE 53248, 92:POKE 53243 , 130 : POKE 
53250, 92:POKE 53251,130 
480 RETURN 

500 REM TRAZADO PANTALLA 

510 GRAPHICS 5; RE STORE 

512 LQW-PEEK í 88 } : HIGH^PEEK (89) 

520 DATA 112,112,112,71,96,159, 6,74,16 
0,155,10,10,10,10,10,10,10,10,10,10,10 
,10,10,10,10,10,10,10,10,10,10,10,10 
530 DATA 10, 10^10, 10, 10, 10, 10, 10, 10, 10 
,10,10,10,10, 10, 7 0,137,159,6, 6 5,106,14 
9 

540 FOR X=1 536 TO 1590:READ A:POKE X,A 
"NEXT X 

550 POKE 560,0: POKE 561,6 
56 0 POKE 6 56,0: POKE 657,6:? "HEliORIX" 
570 POKE 656,1 : POKE 657,2:? "tiempo= 
Jugada-" 

575 POKE 88 , LÜW: POKE 89,HIGH 

580 COLOR 1 : FOR X=2Q TO 58:PLOT X,3;PL 

OT X,10:PCOT X , 3 4 : NEXT X 

59 0 FOR X= 3 TO 34:PLOT 20,X;FLOT 39, X: 

PLOT 5S , X : NEXT X 

595 RETURN 

600 REM DIRIGE PARTIDA 
610 GGSUB 500 
620 GOSUB 300 
990 REM JUEGO 

999 REM MECANISMO DEL JUEGO 

1000 REM 

10D5 F=-l: RESTORE 1230 
1 DIO Dl=D* 1+8 
1020 FOR X=1 TO DI 
1030 E-INT ( RND { 0 ) * 4 ) +1 
1040 A$ (X,X)”STR$(B) 

1050 NEXT X 

10 6 0 REM MUESTRA SECUENCIA MAQUINA 
1070 Q-l : X=i 
1080 X^X+1 
1090 FOR Y^l TO Q 
1095 IF INT (Q/3 ) OF THEN READ H 
1100 F=INT(Q/3) :FOKE 540, H 
1110 POKE 6 56,1: POKE 657,10:? * 2 * 4 * * * * * * 11 ":POKE 
657,19 íPOKE 656,1:? Q; ,T 11 
1130 B=VAL{A$( Y, Y) } íGQSUB 1500 
1140 IF PEBM 540) THEN 1140 
1150 FOR Z”ü TO 3 : POKE 7Ü4+Z,0:NEXT Zl 
SOUND 0,0, 0,0 
1160 NEXT Y 

116 5 REM REPITE SECUENCIA JUGADOR 
1170 FOR Y=1 TO Q 
1180 POKE 540, 254 :PGKE 764,255 
1190 p-FEEK (764) 

1200 IF P<>255 THEN 1300 
.1205 GOSUB 1720 
1210 IF FEEK ( 54 0 ) -0 THEN 1600 
1220 GOTO 1190 

1230 REM DATOS VELOCIDAD SECUENCIA 
1240 DATA 70,70,35,25,18,13,13,13 
13 0 D IF P“1 4 THEN B=l:GQTO 1350 
1310 IF F^15 THEN B=2¡GOTO 1350 
1320 XF P = 6 THEN B=3:GOTÜ 1350 
1330 IF P = 7 THEN BMiGOTÜ 1350 
1340 GOTO 1190 

1350 IF J--1 THEN IF VAL (AS {Y, Y) JOB T 

HE¡N 1550 

1360 GOSUB 1500 

1380 p=FEEK £53775) 

1390 XF P=251 THEN 1380 

1400 FOR Z-Ü TO 3; POKE 704+7,0 :NEXT 2: 

SOUND 0,0, 0,0 

1405 IF THEN RETURN 

1410 NEXT Y 
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1420 Q-Q+l 

1430 FOR T-l TO 3QG:NEXT T 
1440 IF X< = D1 THEN 1080 
14 SO FOR T=1 TO 6 

1460 FOR 2=1 TO 10:FOKE 7 0 3 + B, Z : SOUND 
0,10G+Z*2,10,8:NEXT Z 
1470 NEXT T 
1490 GOTO 40 

1500 REM CONTROL DESTELLOS Y SONIDOS 
1505 POKE 712, 6 : POKE 708,0 
1510 IF B=1 THEN FOKE 704,64:SOUND 0,1 
21,10,8: RE TUR N 

1520 IF B-2 THEN POKE 705 , 148 : SOUND 0, 
96,10,8 : RE TUR N 

1530 IF B=3 THEN POKE 706,36: SOUND 0,8 
1 10 8 * RETUR N 

1540 * POKE 707,192: SOUND 0, 60, 10, 8 :RETU 
RN 

1550 REM RUTINA DE ERROR 
1560 GOSUB 1500 
1570 SOUND 0,240,6,10 
1580 FOR T-l TO 5Ü0:NEXT T 
1590 GOSUB 1655: GOTO 40 
1600 REM RUTINA TI EMPOPO 
1610 FOR Z-l TO 5 

1620 SOUND 0,100,10,14: T-S IN í S ) : SOUND 
0, 0, 0, 0 :F0R T-l TO 80:NEXT T 
1630 NEXT Z 

1640 SOUND 0, 240,6, 10:FOR T-l TO 200:F 
QKE 712, T: NEXT T 
1650 GOTO 40 

1655 REM RUTINA REPETICION 

1656 POKE 656,0: POKE 657,22:? '‘SECUENC 
IA CORRECTA" 

1658 FOR Z-0 TO 3 : POKE 704+Z , Ü : NEXT Z: 
SOUND 0, 0,0,0 

1660 FOR Y=1 TO O : B= VAL ( A$ ( Y , Y ) ) 

1670 GOSUB 1500 

1680 FOR T=1 TO 150: NEXT T 

1690 FOR Z-0 TO 3 r POKE 704 + 35 , 0 : NEXT Z: 


SOUND 0,0, 0,0 

1700 NEXT Y:RETURN 

1710 REM SUB CONTROL TIEMPO 

1720 S-INT ( FEEK ( 540 } /4 2 . 5 ) :PQKE 656,1: 

POKE 657,10:? S : RETURN 

1730 REM CONTROL JUEGO COMPETENCIA 

1740 A$= h " :Q-0:FL=1 

1750 GOSUB 500: GOSUB 300 

1755 POKE 65 6,0: POKE 657,32:? PLAYERA 

;PL 

1760 Q-Q+l : IF PL-Í THEN PL=2:GGTG 1770 

1765 PL-1 

1770 GOSUB 1100 

1780 POKE 656,0; POKE 657,32:? "PLAYER* 

* PL 

1790 A$(LEN(A$>+1)=STH$<B) 

1795 FOR Y = 1 TO Q 
1797 GOSUB 1180 

1800 IF BOVAL(A$(Y, Y) ) THEN 1550 

1810 NEXT Y 

1820 IF Q>23 THEN 40 

1830 GOTO 1760 





FINALIZO CONCURSO "DE VUELTA A CLASES" 

CON APUMANQUE Y ATAR! 



Ejecutivos de CQE LSÁ COM PUTÁCIO N en le entrega de premios a los coiegios 
ganadores de este año. 


Por otro ano consecutivo, el Cos- 
mocentro APUMANQUE y ATAR! 
Nevaron adelante su concurso "De 
vuelta a clases ", con la activa partici- 
pación de diversos colegios de San- 
tiago, que competían para obtener 
uno de ios 7 computadores ATAÑÍ 
para ios colegios ganadores. 

Et concurso permite que ios alum- 
nos de un colegio que compran útiles 
escolares y uniformes en A pu manque 
junten todas las boletas de compras 
y fas entreguen en fos Centros de 
Cómputo ATAR i, dispuestos en los 
pasillos del Cnsmo centro, ¡untando 
puntajes acumulativos para sus res- 
pectivos colegios. De esta forma, la 
activa participación de fos alumnos 
les permite alcanzar uno de ios lu- 
gares ganado res. 

Los colegios ganadores, entre los 
más de 60 que participaron fueron: 

Carmen Teresiano 

— The Engltsh Instituía 

— Redland Schooi 

— Wenloek 

— Adventista 

— Pedro de Valdivia 

— Compañía de María 

Una vez más ATAR/ estuvo pre- 
sente junto a fos colegios. 
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UTILITARIOS 



Torpedo 



Esta columna permanente está dirigida a todos 
tos lectores para que formen una librería con ruti- 
nas , trucos y secretos. Se aceptarán colaboraciones 
para promover eí intercambio de experiencias. 
Todas tas rutinas que sean publicadas recibirán un 
premio de incentivo consistente en una Tarjeta 
de Referencia ATAR i que con tiene todos ios datos 
de interés que un programador debe tener a mano. 


5 REH DISEÑO DE CARACTERES 
10 DAT ñ 128, &4,32, 16, B, 4 T 2, ;i 
13 GRAPHICS OsPOKE 752,1 
20 FdP Y"4 TG i I 
25 TRAP 25 

30 POSI TIÜM Il,20i PRINT "Inqresa valor 

n 


35 RESTORE 
40 PDSITION 25 
45 POS IT ION L 2 
SO FOT X =■" 1 S TO 
55 READ BIT 


20 : I NPU i VALOR : 1 D- VALOR 
Y SPRINT Y -3 


60 IF VALOR >=B IT TREN POSI T ION X, YsPPl 
NT Ir ” p : VALOR-VALOR-BITs GOTO 70 
E5 POS I T I QN X, Ye PR 1 NT N " 

70 NEXT X 

75 POS IT ION 25, Y ¡PRINT ID 
SO NEXT Y 

8 5 P U Sil I D N 3 , O : F^R I N T " P a r í.i n a n li e v 
figura presione START o RE SET para t 
er iTii nar n 

30 IF PEEKC 53279)06 THEN 30 
35 PR I NT GHR* C 1 25 J : ÜO TO 20 


RUTINA No. 3 

CAR.DIS (Diseño de caracteres) 


Este utilitario es complementario a ia rutina 
No. 2 (MUMDGATARI No. 0), pero actúa en for- 
ma inversa. CAR.DIS permite graficar caracteres 
a partir de valores entre O y 255, para un total de 
3 líneas, 

CAR, DI S pide ingresar un valor, luego efectúa 
la transformación a código binar io y dibuja en pan- 
talla la línea dada (ver sistema binario en colum- 
na ASSEMBLER de este número). 

Al terminar la última línea se puede repetir el 
proceso presionando START o terminar con la 
tecla BREAK. , 

Con algunas pequeñas modificaciones, que 
puede efectuar usted mismo, puede investigar el 
set de caracteres del computador apuntando a la 
memoria ROM, a un bloque de localizaciones a 
partir de la 57344. 


RUTINA No. 4 

MANEJO DESTRING 

Las variables alfa numéricas en ATAR1 BASIC 
presentan la particular flexibilidad de poder di- 
mensionarse en el límite máximo de la capacidad 
de memoria. Esta particularidad no se encuentra 
e n o t r os m i c r o co r r i p u ta d o res , 

Antes mencionaremos un truco de utilidad en 
la inicialización de una variable de gran tamaño. 

Dígite el programa siguiente, ejecute y contro- 
le el tiempo que demora en inicial izarse el string; 

10 DIM ARRES (200 00) 

20 FOR J = 1 TO 20000; AR RE$(J) — ** ,É : NEXT J 

30 PRINT ARRES 

Ahora dlgite este nuevo programa y compá- 
relo con el anterior: 

10 DIM ARRE$(2Q000) 

20 ARRESÍ1) JJ : ARRES (20000) = " ARRES 
(2) = ARRES 

30 PRINT ARRES 

La rutina de este mes presenta en la línea 20 
la modificación de las características propias del 
arreglo de string: 

N = variable para número de elementos 

E = largo de un elemento 

Modifique estas variables a su agrado y ejecute. 


10 REH ARREGLO DE STRIHG 
20 W=10;E=30:A=M*E: GRAPHICS 0 
30 BIH ARREÍ CAI ,ELEH$ CE) 

100 REH Uft A CREAR ARREGLO 
110 G05UB 4000 

200 REH BUSCA UN ELEMENTO BEL ARREGLO 

210 PRINT "DIGITE Rimero de elehento q 

ue busca »;INPUT K 

220 GOSUfi 4300 

230 PRINT ELE MÍ 

240 EN B 

4O00 REM SUBRUTIWA CREA ARREGLO STRING 
4010 ARREÍ ti) =“ ARREí (A) i 11 "¡ ARRES ti 
J=ARREÍ 

4030 FÜR J=i TO N 

4040 PRINT "DIGITE elementa numero ";J 
4050 INPUT ELEHS 
4066 L=LEN CELEMÍ) 

4070 INC=ÍJ"IJ*E 

400O AflREí ( J.+INC , E+INC) =ELEMÍ 

4090 NEXT J 

4100 RETUHN 

4300 REM 5UBRIITIRA BUSCA UN ELEMENTO 
BEL ARREGLO 

4310 REH CLAVE DE INGRESO -K NUMERO BE 

L ELEMENTO 

4320 ELEHí= 1Nl 

4330 IMC=tKIJ*E 

4340 ELEMÍ=AftRES (1+INC, E+INC) 

4350 RETURH 


) 

i 


i 


1 
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TUTORIA 


Primeros pasos en 
ATARI BASIC 


Nuestra columna de rutinas coleccionadles 
se incrementa este mes con una que será disfrutada 
por los lectores de M UN DO AT A R F 


Di g i te el siguiente listado: 


10 RE M LISTADO #1 
15 GRAPHICS O 
20 VELOC-3 , 4S 
30 MEDI C = 18 
40 LAPSO=l . 6 5 
100 REM FORMULAS 
110 DIM TABLA(MEDIC) 

120 FOR J=Q TO MEDI C 
130 TABLA ( J ) -0 
140 NEXT J 

150 FOR J=0 TO MEDI C 
160 DI STAN= VELQC* J *LAPSO 
170 TABLA ( J ) =DI STAN 
18 Ü NEXT J 
200 ? CHR$í 125) 

210 POSITIQN 0,0:? « TABLA DE VAL 

ORES DISTANCIA «; 

220 POSITION 4,2:? M MEDICION TIE 
MPO DISTANCIA" 

230 FOR 0=1 TO MEDI C 
240 ? , J, J*LAPSO,TABLA( J ) 

250 NEXT Ó 


Su ejecución despliega en la pantalla los si- 
guientes valores corno datos de salida.- La foto 
¡lustra esta situación: 





Comentario del listado: 

20-40 Inicia liza variables de uso en cálculos. Pue- 
den modificarse. 

110-140 Dimensiona el arreglo TABI A para el 
número de mediciones y lo Inicia liza. 

150-180 Ciclo para cálculo de la distancia reco- 
rrida por el móvil y almacenamiento de datos 
en el arreglo. 

200-250 Formateo en pantalla de los datos alma- 
cenados en el arreglo. 

Observemos esta pantalla de datos de las medi- 
ciones y evaluemos su presentación: 

1. Las columnas se encuentran desplazadas hacia 
la derecha, 

2. Los números de fas columnas no guardan la 
ubicación de acuerdo af dígito. Una mejor 
ordenación sena la siguiente: 

t 

12 

2 

1234 

Estos- números se encuentran alineados a 3a 
derecha. 

3. Los decimales de números rio guardan la ubi- 
cación con respecto al punto decimal, 

Ejemplo de una mejor ordenación: 

45.670 
12.000 
5.450 
1 234.000 

Considerar estos aspectos en la pantalla de sus 
programas optimizará su presentación. 
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TUTORÍA: continuación 



£1 listado siguiente corresponde a la rutina 
de este mes. Aconsejamos tipearla y grabarla en 
diskette o cassette con instrucción LIST, pues les 
será útil en alguna oportunidad. 


13000 REM RUTINA FORMATEO ¥ PUNTO DECI 

MAL DE NUMEROS 

13010 REM 

13020 TRAP 13150 

13030 NUMEROS (1) = '' H : NUMEROS ( CAMPO )= H 
: NUMEROS í 2 ) “NUMEROS 
1304 G IF NUPÜ=0 THEN 1320Q 
13050 IF CAMPO<DEC+2 THEN 13500 
13060 PARTENT=INTÍ NUMERO) 

13070 DECIMAL -NUMERO”? ARTENT 

13000 NUMEROS í CAMPO- (NUPÜ-1 ) , CAMPO )- ,f 0 

00000000000000000" 

13090 NUMERO? ( CAMPQ-NUFO , CAMPG-NUFO ) = " 

R 

13100 IF DECI MAL =0 THEN 13190 
13110 DECI$=£TR$ ( DECIMAL ) 

13120 L=LEN ( DECI $ ) : DECI $ -DECI $ ( 3 , L ) ;L= 
LEN ( DECI S ) 

13125 IF L>NUPO THEN L=NUPO 

13130 NUMEROS ( CAMPO-NUPO+1 , CAMPO-NUPO+ 

L ) =DECI $ 

13190 CAMPO=CAMPO-(NUPO+1) 

13200 F ARTE$ = S TR$ í PARTEN? ) 

13210 L-LEN (PARTES) 

13220 IF L> CAMPO THEN 135S0 

13300 CUENTA=1 

13310 FOR J=L TO 1 STEP -1 

133 2 0 NUMEROS í CAMPO , CAMPO ) -PARTES ( 3 , J ) 

13325 IF J<2 THEN 13390 

13330 K - I NT ( CUENTA/ 3 ) 

13340 IF K *3 OCUENTA THEN 13300 

13350 CAMPO -CAMPO- 1 

13360 NUMEROS (CAMPO, CAMPO > = " . H 

13360 CAMPO=CAMPÜ-l 

13390 CUENTA-CUENTA+l : NEXT J 

13395 IF E s 0 THEN 13450 

13400 POS I TI ON X, Y * ? NUMEROS 

13410 POSITION X,Yí? NUMEROS 

13450 IF P^0 THEN RETURN 

13460 LINEAS (1) = " " ;LINEA$ ( 79 ) = H ";LIN 

EAS( 2) -LINEAS 

13470 L- LEN (NUMEROS) : LINEAS í FL f PL+L-T ) 
-NUMEROS 

13400 LPRINT LINEAS 
13490 RETURN 

13 50 0 POSITION 0,20:7 '» ERROR en datos 
ENTRADA a RUTINA"; 

13510 RETURN 

: i 


Variables numéricas: 


NUMERO 

NUPO 

CAMPO 

X 

Y 

CUENTA 


ingresa el número a la subrutina 
Ingresa el número de decimales para el 
formateo del número 
Ingresa el número de espacios de la 
pantalla para el formateo de esta co- 
lumna 

Define la posición en la línea que se 
edita el numero formateado 
Define el número de la línea a editar 
Controla fa ubicación para la parte en- 
tera del numero y Ja ubicación de los 
puntos separadores 


PARTENT Parte entera del número ingresado a la 
rutina 

DECIMAL Decimal dei número, si existe 
K Variable de control para ubicar la posi- 

ción y editar el punto si corresponde 

Variables alfanuméncas: 

NUMEROS Contiene el número formateado a edi- 
tar (salida) 

DFCI$ Contiene la parte decimal def número 

PARTES Contiene la parte entera del número 

LINEAS Para formatear el número en una línea 
de salida a impresor. Puede modifi- 
carse a 136 si fuera comprimido. 

Comentarios del listado: 

13030 Inícializa la variable NUMEROS para 
el largo definido en el campo 
13040 D ¡recciona si el número se formatea 
sin fracciones 

13050 Establece condición sí se definió inco- 
rrectamente tos valores de entrada 
13060 Asigna a variable PARTENT fa parte 
entera del número 

13070 Asigna a variable DECIMAL la parte 
decimal 

13080 Inícializa con 0 para la fracción. Se cu- 
bre el caso que ios dígitos del decimal 
sean inferiores a Eos pedidos en el for- 
mateo 

13090 Ubica la coma de separación de la par- 
te decimal 

13100 Condiciona sí el número no presenta 
parte decimal 

13110 Asigna a variable DECI$ la parte decto 
mal 

13120 Modifica la variable DECI$ para elimi- 
nar los 2 primeros caracteres (0) 

13125 Controla un posible error por defecto 
de variable L 

13130 Traslada fa parte decimal af número 
13140 Modifica el valor de variable CAMPO, 
pora poder ubicar la parte entera en el 
número 

13200 Asigna a variable PARTES la parte en- 
tera 

13220 Establece posible error 

13300-13390 Cíelo para trasladar los dígitos des- 
de la variable PARTE$ hacia la varia- 
ble NUMEROS. Utiliza el STEP-1 pa- 
ra desplazarse de derecha a izquierda. 
Utiliza la variable CUENTA para iden- 
tificar la ubicación del punto si corres- 
ponde 

13410 Edita el valor en la pantalla 
13460 Prepara la variable LINEAS para impri- 

mir la I fnea 

13470 Inserta en la ubicación definida por va- 
riable PL el formato del número en la 
LINEAS 
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134SG Edita la variable LINEAS en impresora 


Veamos qué sucede con esta subrutina. Dígite 
estas líneas sin borrar de memoria ia subrutina de 
formateo. 


5 ? CHR$ { 125 ) 

8 DIM NUMERQ$ ( 20) , DECI $ f 18 } , PARTE$ í 20 ) 
,LINEASÍ 00) 

10 FOR N = 1 TO 6 

20 READ NUMERO, CAMPO, X, Y, NUPQ,P,S,PL 

30 DATA 1234*567,20,5,^,2,1,1,40 

31 DATA 12345. 67,20,5,6, 2,1,1,40 

32 DATA 234.567,20,5,7,2,1,1,40 

33 DATA 4 .567, 20,5, 8,2,1,1,40 

34 DATA 0.567,20,5,9,2,1,1,40 

35 DATA 1111111234,20,5,10,2,1,1,40 
40 GOSUB 13000 

100 NEXT N 
1000 END 


Comentario de I meas adicionales; 

5 Limpia la pantalla 

8 Dímensiona las variables alfanuméneas que 
utiliza en subrutina 

10 Ciclo para leer valores diferentes de instruc- 
ciones DATA 

30-35 Líneas con parámetros de entrada a subru- 
tina 

40 Direociona hacía subrutina 
1000 Finaliza 

Observe la precisión del formateo. 

Pero ahora volviendo al punto de partida cieí 
listado 1 de la tabla de valores ¿Cómo mejorarla? 
Bueno, aquí está el listado siguiente: 


5 DIM NUME¡Rü$ ( 2 0 ) f DECI ? ( 1 8 ) , PARTE $(20) 
, LINEA$ (80) 

10 DIM TEMP? í ID ) 

15 GRAPHICS 0 
2 0 VELCK>3,4 8 
30 MEDIC=18 
40 LAPSO s l . 65 
100 REK FORMULAS 
110 DIM TABLA í MEDI C) 

120 FOR J = 0 TO MEDIC 
130 TABLA { J } =0 
140 NEXT 0 

150 FOR 0=0 TO MEDIC 
160 DlSTAH=VELOC*J*LAPSÜ 
17 0 TABLA ( J ) =DI S TAN 
180 NEXT J 
200 ? GHR$ (12 5) 

210 POSITION 0,0;? » TABLA DE VA L 

ORES DISTANCIA W J 

220 POSITION 0,2:? 11 MEDICION TIE 
MFO DISTANCIA” 

3 00 FOR ELE=1 TO MEDIC 
310 TEMPS=STR$ ( ELE ) 

320 L=LEN ( TEMPS ) 

330 POSITION 1 1 -L , ELE +■ 2 : ? TEMP$; 


400 CAMPO=6 
410 NUPO=2 
420 X~1 5 
430 Y=ELE+2 
440 P-0 
450 S = 1 
460 FL=0 

470 NUMESO=ELE*LAPSO 

500 GÜfíUB 13000 

510 CAMPO= 12 

520 NUPO=3 

530 X=2l 

540 Y 'ELE+ , 2 

550 P = 0 

560 S=1 

570 PL- 0 

580 NUMERO=TABLA ( ELE ) 
600 GOSUB 13000 
650 NEXT ELE 
1000 END 


Diyítefo. 

Ingrese con instrucción ENTER la subrutina 
FORMATEO: 


ENTER "C" (para casetera) 

ENTER ái D: FORMATEO. NUM" (para diskettera) 

Digite la instrucción LIST y su programa se 
combinará con el anterior. 

Ejecute el programa y compare con la presen- 
tación inicial de la pantalla. La foto ¡lustra estos 
aspectos: 


T Ü íi i o 


UjfTLGR 


E>ISI ñHCI 



Sí u ste d t i p n e u n a i m p re so ra co m o pa rte de s u 
configuración podrá experimentar con esta su b ru- 
tina para salidas hacia documentos escritos. 


ACTIVIDADES DE SUPERACION 

\ 

Esta rutina no contempla aproximaciones, 
pueden ser ¡mp [ementadas llamando a otra subru- 
tina y estableciendo variables de señal. para direc- 
cionar la posibilidad. 

Trabaje en ella y envíela como cooperación a 
nuestra columna. Hay premios para usted, • 


MEMORIA 



De byte en byte 



Hoy continuamos con el análisis de 3 locali- 
zaciones que controlan la pantalla y que son las 
predilectas del Profesor Chip. 



6. MODO GRAFICO 
Localización B7 

Esta localización mantiene el registro corres- 
pondiente al modo gráfico en uso, 

Digite las siguientes líneas: 

10 GRAPHICS 21: REM Modo gráfico 5 sin ventana 
da texto 

20 DL =PEEK(5G0> +256 * PEEKÍ5G1 ) : REM Asig- 
na a variable DL localización inicial da Lista de Des- 
pliegue 

30 PQKE DL I 6, 2: ñEM Modifica una línea a Mo- 
do caro 

50 PRINT "MUISIDO ATARÉ" 

Nota: La columna TECNICAS de MUNDO A TARI 
desarrolla el tema Lista de Despliegue. 

ACTIVIDAD: 

Ejecute ef listado y observe el comportamien- 
to, ¿En que modo gráfico edita el texto MUNDO- 
ATAR I? ¿Qué pasó con el Modo 5? 

Para comprobar la utilidad de la localización 
87 agregue las siguientes líneas: 

35 POKE 87, 0: REM Al modificar asta localización 
con &\ valor caro se engaña al Sistema Operativo 
40 PGSITION 20, 0 

ACTIVIDAD: 

Ejecute el listado nuevamente con las nuevas 
líneas. ¿Qué diferencias observa con la ejecución 
anterior? 


7- PRIMERA LOCALIZACION DE PANTALLA 

Localizaciones 88 y 89 

Este puntero mantiene el registro que corres- 
ponde al primer carácter editado en la pantalla, 
(ver página 33 de MUND0ATAR1 No. 0). 

Digite ef siguiente listado: 

10 GRAPHICS 0 

20 LOCI “ PEEKÍ88) + 256 * PEEKÍ89): REM 

Asigna □ variable LOCI el puntero inicial de pantalla. 

30FORJ-0TO25 

40 PQKE LOCI 4* J, J + 33 

50 NEXT J 

Las líneas 30, 40 y 50 ejecutan operaciones 
directas a la máquina, modificando las localiza- 
ciones que corresponden a la pantalla. 

El valor agregado de 33 es para proporcionar 
la clave de transformación de modo de editar los 
caracteres deseados (en este caso las letras mayús- 
culas). 

Ejecute el programa y observe la pantalla. 

¿Qué pasa con la letra C? 

Agregue la siguiente línea: 

15 POSITION 0, 5: PRINT " " 

¿Cuá! es la diferencia en el comportamiento? 

¿Por qué? 

En el próximo número continúa el análisis de las loca- 
lizaciones que se relacionan con la pantalla . 
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CRONICA 


Lista de Despliegue 


Hoy continuamos la columna Lista de Des- 
pliegue analizando en particular los tipos de ins- 
trucciones que forman la Lista. 

En el número anterior se analizó en extenso; 

a) Definición de Lista de Despliegue, 

b) Lista de Despliegue para el Modo 0. 

c) Lista para otros modos gráficos, 

d) Puntero que indica localización inicial para la 
Lista de Despliegue, 

Ti pee el siguiente listado: 


19 REH 

29 GRAPHICS ft 

39 INICIAL=PEEK Í569J +25WEEK (561) 

49 FOlt J -INICIAL TO XMClAL+15 
59 ? Jj PEER Ul 
69 NEKT J 
65 CUEMTA-8 

79 FOR J=INICIAL+16 TO IKICIAL+31 
39 PD5ITI0H 22/ CUENTA*? J,PEEÍ£ÍJ) 

95 CÜENTA-CiIENIA+1 
99 NEKT J 

190 TÜS J-8 T0 15;PD5ITI0N 18, J¡? "III 
^iNEHI J 

ua pas món B/ie;? 

*OP3ín=xr=_---:-. ■ -r=“_v ■»■ ■ . 

129 ? Ir USIA DE DESPLIEGUE NODO CE 
Rü « 

139 P05I T1QN 9,18!? tÉ ^Z 

■ 


Al ejecutar este listado aparece en pantalla: 



39969 

39970 

39971 
3 9 972 

39973 

39974 

39975 

39976 

39977 
3 9 9 76 
3997 9 
39960 

39951 

39952 



Observe el formato de presentación para que 
las instrucciones se analicen todas en una sola 
pan tal la. 

Comentario del listado: 

30 Asigna a variable INICIAL la localización de 
memoria inicial para la Lista en Modo 0. 

40-60 Despliega las primeras 16 instrucciones en 
dos columnas (localización de memoria y 
valor) 

65-90 Despliega las 16 instrucciones finales en 
la mitad derecha de la pantalla, 

100 Dibuja para cada línea un separador. 

110-130 Mensajes para identificar el despliegue. 

En esta lista de despliegue aparecen los tipos 
de instrucciones: 

a) Líneas Sean en blanco. 

b) Instrucción LMS. 

c) instrucciones A NT fu 

d ) I n str u cci ó n J U M P (sal to d e r etorn o ) 

A, LINEAS SCAN EN BLANCO 

Son las i n str i j c c i o n es pa ra las cuales el A N 1 I C 
no requiere de memoria para desplegarlas. 

Existen diferentes valores para desplegar de 
1 a 8 líneas sean en blanco. 

En la lista de pantalla aparecen 3, y correspon- 
den a los valores 1 1 2 . 
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TECNICAS: continuación 



REPITA 
12 VECES 
ESTE 

MOMENTO 


SUSCRIBASE 


Se utilizan para compensar el despliegue total 
de la pantalla. Sirven como separadores. 

Digite las siguientes i meas: 


20 GRAPHICS 0 

30 lNICIAL=PEEKC560m56*PEEltt56n 
40 FDD INICIAS. TD INICIAL ti!» 

50 ? J,PEEK IJ] 

60 NEHT J 
65 CUENTA-0 

70 FÜR J-INICIAL+16 TO IKICIAL+3Í 
00 PO51TI0N 22 j CUENTA:? JjPEEKCJJ 
05 CUENTA=CUEJITAH 
90 «EXT J 

10# FflR J=f T0 15: POS IT ION 1S,J:? «fi| 
"jiNEXT J 

110 PBSITI0N 0,16:? « 1 11 


■ i 


? ■> 


124 
Rfl 

136 POSITION 0,10:? 


lista de despliegue mm ce 


IR 


I 


149 Din PAUSAS ai 

150 RHt J=0 TO 112 STEP 16 
166 PUKE INICIAL *22,1 

170 P05ITION 0,20:? « Estas viendo 
i/1041 j 11 lineas sean 
18t PQ SITIAN 0,21: ? "PRESIONE 
continua : INPUT PAUSAS 
1*0 NEHT i 


■i i 


R e t u r n 


Este listado es el mismo Listado 1, a! que se 
le agregan las líneas 140-190, 

Ejecútelo y observará el efecto de aplicar las 
diferentes líneas sean. 

Puede observar con más intensidad el efecto 
cambiando el color del fondo por blanco mediante 
la instrucción; 



145 POKE 712, 15 

Comentario de líneas adicionales: 

140 Dimensiona variable alfanumérica PAUSAS 
para producir una pausa entre cada número 
de líneas sean. 

150 Ciclo para los valores posibles aceptados por 
ANTIC para las líneas sean. 

160 Modificando el contenido de la localización 
de memoria para línea 18 que corresponde a 
INICIAL. +22. 

170-190 Mensajes para identificar el número de 
líneas sean e ingresar la pausa. 

ACTIVIDADES COMPLEMENTARIAS 

1. Modifique la línea 100 en el incremento a 
variable inicial. Determíne cuáles son los lí- 
mites aceptables. 

2. Complete fa siguiente tabla con los valores de 
instrucción de línea blanca sean y número de 
I meas desplegadas: 
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TECNICAS: continuación 


No, líneas 

valor asociado 

1 


2 


3 


4 


5 


6 


7 


8 



B* INSTRUCCION LMS 

Es una instrucción que se localiza en 3 hytes 
consecutivos de memoria. 

En la lista en pantalla corresponde a: 

66 en localización 39971 
64 en localización 39972 
1 56 en localización 39973 

Estos valores son diferentes para el 600 XL y 
corresponden a: 

66 en localización 15395 
64 en localización 1 5396 
60 en localización 1 5397 

Él significado y funcionalidad en ambos equi- 
pos es idéntica sólo varia la ubicación en memoria. 

Corno dato informativo puede transformar su 
ATARI 800 en 600 Ingresando la línea: 

S POKE 106, 64 

ACTIVIDAD COMPLEMENTARIA 

Investigue y justifique la transformación. La 
localización 106 es muy útil para las ocasiones que 
necesite reservar memoria! 

PRIMER BYTE 

Corresponde a una suma de un valor fijo más 
el valor ANTiC para el modo definido vía BASIC 
con la instrucción GRAPHICS. 

En este caso particular el modo definido es 
el cero. La instrucción ANTIC asociada a este 
modo e! 2. 

¿Cuál es el valor fijo entonces? 

66 — 2 - ??? 

64 es el valor fjjo, que sumado al valor de la 
instrucción ANTIC determina el primer byte de 
una instrucción LMS, 

¿Para qué sirve una instrucción LMS? 

Para identificar el bfock o área de memoria 
en que se encuentran los datos que se proyectarán 
hacía la pantalla: 

BYTE 2 + 256 * BYTE 3 = dirección inicial de 
memoria para la pantalla 

Para el ATARI 800 corresponde a: 

64 + 256 * 156 - 40.000 

Para el ATARI 600 corresponde a: 


64 + 256 * 60= 15,424 

Digite el Listado 3: 


IB PRIHT CHUS (125) 

20 IVIICIftUPEEK C56ÍI *25 WEEK E561) 

3® REH IKICIftL+3-BYTE 1 RE LMS 
4« REH 3 RICIAL T4ZQYTE 2 RE LHS 
50 REH IN ICI AL +5 ~B YT E 3 RE LK5 
60 UJSITIOM 0*2:? "BYTE 1 ="j PEEK tlÜIC 
IAL+31 

70 PQ 51 TI 0M 0,3:? "BYTE 2 -"¡REEKCIMC 
IAL+41 

80 PD5ITIQN 0,4;? "BYTE 3 ^"¡PEEKCIJIIC 
IAL+51 

50 R0SITX0II «,§:? " BYTE t + 256*BYT£ 

3 ~LD€. PANTALLA 11 

100 P05ITCQN 4,7:? PEEKflNXEEALtA);' 1 
'SíPEEKIIllICIALtSl;/ 1 “ aa ;PEEK f INICIAL 
+41 *256*PEEK CINICIAL+Sl 

_ I 

i 

Al ejecutar el listado comprobará lo afirmado 
con respecto a los valores de pantalla para su 
ATAR! 

C o me n tari o del lis tad o : 

20 INICIAL = variable para inicio de Lista, 

30-50 Ubicación de bytes de LMS en la Lista. 
50-80 Edita los valores en sus loca I; ¿aciones. 
90-100 Edita el valor inicial para su ATARE 

Pero ahora ¿Cómo interactuar con estos valo- 
res para que este estudio tenga una aplicación 
práctica? 

Ahora tiene un anticipo: 

Digite en modo directo: 

POKE 40000, 33 

En la posición ü r 0 aparece en pantalla una 
letra A. 

D i g i te a c o n t i n u a c i o r i : 

POKE 40000, 0 

Y lo que había en 'pantalla ya no está. 

ACTIVIDADES COMPLEMENTARIAS 

1. ¿Qué relación tienen estos valores que se in- 
gresan en la memoria de pantalla con los ca- 
racteres editados? 

2. Edite en la primera línea de pantalla, poke- 
an do directamente a la memoria, un mensaje 
como: 

MOLA MUNDO ATARÍ 

El próximo mes continuaremos con las ins- 
trucciones ANTIC y JUMP y finalizaremos esta 
técnica con algunas ejemplos de modificaciones 
a la Lista de Despliegue. # 
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ASSEMBLER 


Directo al 6502 



Esta columna de continuidad desarrollará los con- 
ceptos básicos de programación en Assembfer. 


SISTEMA NUMERICO BINARIO 

La Unidad Central de Proceso interpreta sólo 
dos estados posibles: 

— con paso de corriente 

- sin paso de corriente 

Para una mejor comprensión representaremos 
esto con una ampolleta en que el paso de corriente 
genera 3a luminosidad, 

El estado de no paso se representa con la am- 
polleta apagada. 

Asociamos a estos dos estados los dígitos: 

el 0 corresponde al no paso de corriente 
el 1 indica paso ele corriente. 



El computador interpreta un número definido 
de señales. Este número corresponde a ocho. 

Cada elemento básico (señal) se denomina 
bit (trozo), E! conjunto de ocho bits constituye 

un byte. 

Representemos al byte por un conjunto de 
ocho ampolletas, 

La primera posibilidad es que se encuentren 
todas apagadas, corno sucede en la figura. 

Para designar las ampolletas (bits) las numera- 
mos de derecha a izquierda (0 al 7), 


Observe la figura siguiente: 



La C P U I a s i n te r p reta corno todas en ce n d i d a s . 
¿Pero cuál es la equivalencia en nuestro sistema 
numérico decimal? 

Cada bit equivale a un determinado valor deci- 
mal, 

Ejemplo: 



Revise ios conceptos de valor asociados a la 
posición ( nú mero 0 de ÍV1 U N DO ATA R I ) , 

El valor asociado es la base del sistema elevado 
al número de posición: 

2 ° = 1 

i 

La equivalencia a decimal de este ejemplo co- 
rresponde al decimal 1 , 

Para el caso de la segunda ampolleta encen- 
dida: 



7 G 5 4 3 2 1 0 


t 

el valor asociado es; 2 1 = 2 

Para la tercera ampolleta encendida: 



Revi$e el concepto base de un sistema numé- 
rico en el número 0 de MUNDO A PARI, página 30, 


En el Sistema Binario existen dos dígitos; Oy 
1. Por lo tanto la base de este sistema es dos (2), 



íTi 

el valor asociado es: 2 = 4 . 

El tercer bit [posición 2) corresponde al nú- 
mero 4 de nuestro sistema decimal 
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ASSEMBLER 


Desarrolle a continuación: 

¿A qué valor decimal se asocia el cuarto bit? 
2 3 = 

- ¿A qué valor decimal se asocia el quinto bit? 

2 4 " 

- ¿A qué valor decimal se asocia e! sexto bit? 

2 S — 

- ¿A qué valor decimal se asocia el séptimo bit? 
2 6 = 

■ ■ r n d r 1 J 

- ¿A qué valor decimal se asocia el octavo bit? 


Tenemos en resumen: 


7 

6 

5 

hit ni 

4 

i m ero 

3 

2 

1 

0 

2 7 

2 6 

2 5 

2 4 

2 3 

2 2 

2 * 

2 n 

128 

64 

32 

16 

valor l 

8 

leeimal 

4 

2 

1 


Para conocer el valor asociado a todas las am- 
polletas encendidas se suman los valores indivi- 
duales de las posiciones. 

128 +64 +32 + 16 +8 + 4 +2 +1 

Ef valor es 255, que corresponde a! máximo 
valor decimal que se puede interpretar con los 
ocho bits, 

Aplique los conceptos aprendidos para la reso- 
lución de los siguientes ejercicios donde represen- 
tamos a los binarios por una serie de 8 números 
(Oy 1): 

1 P ¿Cuál es el decimal asociado a los binarios 
siguientes?: 

00000000 : 

0000000 1 : 

00 000 0 10 ; 

000000 1 1 : « 

00 000 10 0 : .... 

00 000 10 1 : 

0000 01 10 : 

00000 1 1 1 : 

0000 1 000 : 

0 0 0 0 1 0 0 1 : 

000 010 1 0 : 

0 00010 1 1 : 

' 0000 1100: . 

0000 110 1 : .......... 

00001 1 1 0 : 

0 0 0 0 1111 : 

10 0 0 10 0 0 : 

11110000 : . 

10 0 1 10 0 1 : 

1 1 0 0 1 1 0 0: ....... 

Para comprobar fes resultados digite ef si- 
guiente programa: 


10 REM CONVERSION DE BINARIO A DECIMAL 
20 DIM A$ ( 6 } , PAUS A$ { 1 ) 

30 GRAPHICS 0 

40 POS I TION 0,2:? " DIGITE EL NUMERO B 
INARIO" 

50 INPUT A$ 

80 L = LEN ( A? ) 

70 FOR J=1 TO L 
80 NUM“ASC{ A$( J, J ) ) 

9 0 IF NUM< 4 0 OR NUM>49 THEN 130 
100 NEXT J 
110 GOTO 150 

130 POS I TION 0,18:? ERROR en DIGITAC 
ION del binario”; 

135 POS1TION 0,20:? « PRESIONE Return 

y continua 11 

140 INPUT PAUSA? 

145 GOTO 30 

150 DEC I MAL ”0 : I NDICE=0 : FOR J = L TO 1 ST 
EP — 1 

160 DI GI TO= VAL ( A$ ( J , J ) ) 

170 DECI MAL = DECI MAL + ( DI GI TO* 2 A INDICE i 
180 INDI CE- 1 ND ICE -i-l 
190 NEXT J 

200 POSITION 0,16:? 11 El decimal que c 
orresponde al binarlo”; 

210 POSITION 0,17:? A?;” es : ” ; DEC I M 
AL 

250 END 


2. Escriba el binario correspondiente a los si- 
guientes decimales: 

55, 40, 33, 128, 151, 8ñ r 31, 77, 127 
163, 200, 215, 96, 244, 202, 17, 255 

Para comprobar digite el siguiente listado: 


10 REM TRANSFORMA DECIMAL EN BINARIO 
20 DIM PAUSAS íl) , BINARIOS ( 8 ) 

30 GRAPHICS 0 

40 POSITION 0,2:? "DIGITE numero DECI M 
AL ,f 

45 TRAP 30 
50 INPUT DECIMAL 

60 XF DECIMALCO OR DECIMAL>255 THEN 30 

70 BINARIO? = ”00000000 111 

80 DlGITO^l 

90 TR- DECI MAL 

100 DI G1TO-7 : FOR J=1 TO 7 

110 POT=2"DIGITO 

120 IF TR<POT THEN 150 

130 TR-TR-POT 

140 BINARIO?* J, J) = ”1 TI 

150 DI GITO=DIGI TO-1 

160 NEXT J 

170 IF TR“ 0 THEN 200 
180 BINARIOS* e,8í- ! ’l T ' 

200 POSITION 0,16:? H El BINARIO que C 
or tea pónete ai” 

210 POSITION 0,18:? 11 decimal " ; DECIMA 
L;" *3 í BINARIO? 




En ef próximo número finalizaremos ¡os Sis temas Numé- 
ricos con el Sistema Hexadecimat. 
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ASSEMBLER: continuación 


USR 


Hoy iniciamos esta columna como comple- 
mento a DIRECTO AL 6502 . Esté dirigida a fos 
lectores para que formen una colección de rutinas 
utilitarias en lenguaje de máquina. 


L.a función USR ejecuta los siguientes pasos: 

desconecta la secuencia del intérprete BASIC-, 
realiza un salto hacía un área específica de la 
memoria, donde se encuentra un corto trabajo 
en lenguaje de máquina, 

- ejecuta dicha rutina en máquina, 

finaliza con un código de retorno hacia la in- 
terrupción del BASICL 

i 

Ef formato de la función USR es: 

USR (parám. 1, parám. 2 r parám. 3, ...} 

(soporta hasta 27 parámetros) 

El primer valor que pasa ai S'IACK -área de 
la memoria que sirve como archivo temporal de 
información- es la dirección del retorno hacia el 
BASIC. 

El formato: x = usr (1536, 40000, N) indica: 

a) El primer parámetro señala que la rutina a 
ejecutar se encuentra codificada a partir de la 
localización 1536 [página seis). 

b) El segundo parámetro corresponde a! número 
4GÜ0Q 

c) El tercer parámetro corresponde al valor de la 
variable N (en este caso valdrá 51 2) 

La representación del STACK cuando se eje- 
cuta la función será; 


Valores en STACK 


No, argumentos 

menor 

2 

Orden 

de 

saE i da 

if 

Argumento No. 2 (40000) 

mayor 

menor 

156 

64 

Argumento No. 3 (N— 512) 

mavor 

menor 

2 

0 

Dirección de retorno 
ai BASIC (2 bytes) 


Los valores del STACK se recuperan desde 
arriba hacia abajo, El primero es el valor 2, que co- 
rresponde al numero de argumentos del ejemplo. 



Luego viene el valor 40000, descompuesto en 
byte menor (156) y byte mayor (64). Finalmente 
el valor de N (512), también descompuesto en me- 
nor (0) y mayor (2), 

El último par de byteses el puntero que man- 
tiene la localización de memoria para el retorno al 
programa BASIC. 

Para aplicar los conceptos digite y ejecute el 
siguiente programa: 


5 REM LISTADO FUNCION USR 
10 DIM AZAR$(12) 

20 FQR J-l TO 12 
30 READ N 

40 ASARSE J)=CHR$(N) 

50 NEXT J 
60 LOC= ADR ( AZAR 5 ) 

70 NUM-USR(LOC) 

80 PR1NT NUM 
90 GOTO 60 

IDO DATA 104, 173,10,210,133,212,173,10 
,210,133,213,96 


Observe los resultados. El programa edita en 
forma instantánea un número random (al azar) 
entre 0 y 65535. Nuestra interrogante para nues- 
tros lectores es: ¿Cómo se traspasa el valor obte- 
nido en la variable NUM hacia el BASIC? 

Un comentario final es que los conceptos de 
sistemas numéricos que se tratan en la columna 
DIRECTO AL 6502 permitirán interpretar los có- 
digos de máquina y darles un sentido en relación 
a las operaciones de la CPU. Es importante, amigo 
lector, que se interese por esa información gradual 
que con el tiempo tendrá aplicación directa con los 
ejemplos que trataremos en estas páginas. • 
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peques: Rapidez de reflejos 


Esta sección es para ios pequeños de ía casa . 
Para poder ínter actuar con e i ATAR! necesitarán 
que uno de /os mayores tip&e, adapte o cree cortos 
programas que servirán para evaluar y mejorar 
habilidades, 

RAPIDEZ DE REFLEJOS 

Este programa permite medir la rapidez de los 
pequeños en asociar dos números iguales. 

INDICACIONES DÉ USO 

La pantalla, como indica la foto no entrega 
instrucciones. Es necesario practicar con el niño 
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PEQUES: continuación 


para que entienda ¡a interacción con el computa- 
dor. 

El pequeño debe presionar cualquier teda só- 
lo cuando dos números son iguales. 

Si son diferentes debe esperar hasta que un 
nuevo par de números se le entregue en la pan- 
talla, El cambio de color de i fondo Indica el mo- 
mento. 

Las respuestas incorrectas se descuentan de fas 
correctas. 

Al finalizar se proporciona una evaluación del 
uno al siete de acuerdo a sus aciertos. 

Digite cuidadosamente el listado que se inclu- 
ye a continuación: 

r — 


O PUNTOSOS CUENTA- 1 : MAX I NO™ 12 
1 Ó QRAPH I CS 1 B ; PÜKE 712, CUENTA* 1 5: PÜKE 
708 1 O 

15 PDKE 20, O: PÜKE 1 O , O 
20 PF: I ii Eft= í N T C RND C ü > * i O > 

20 SEGUNDO INI ( RND ( O > *1 0 > 

40 POS IT ION 4,4: ? #6; PRIMER 
50 POS IT ION 8,4:? #8 ; SEGUNDO 
60 POKE 764,255 

70 IF FEEKtiS»! TREN T« 1 í GOTO 100 
80 ir PEEK < 7&4> “255 THEN T™Ü;GOTÜ 70 
85 IT REI MER-SEGÜNDQ THEN PUNTOFUNTO+ 
i: GOTO 150 
90 FUNTn^-PUNTLl-1 

100 IF PR IMER=! SEGUNDO íHEN PUNTO-PUNTO 

— 1 z GOTO 150 

110 PUNTO=PUNTO+ 1 

150 REM 

ISO C U E NT A = C U EL N T A ■+• 1 

170 IF CUENTA >HA>:iNO THEN 200 

180 GOTO 10 

200 GRAPHICS 18 

2 1 0 POS I T I DN O f O : ? # 6 ; " CaL i F i CaC i Un 

II m 

220 PLISITIÜN 3,3s? #6 - PUNTÜ/MAX IM0*7 
230 GOTO 230 


Descripción del programa: 

5 Inicializa tas variables: 

— PUNTO : Puntaje del participante 
-- CUENTA ; Número de intentos 
- MAXIMO : Número máximo de intentos 

( 12 ) 

10 Inicia liza el modo gráfico 18, sin ventana de 
comu ideación. 

Modifica ef color del fondo de acuerdo ai va- 
lor de variable CUENTA (localización 712) 
Modifica el color de números al negro (0) en 
la localización 708 r 

15 Inicial iza localizaciones de control de tiempo 
(localizaciones 19 y 20). 

20 Asigna a variable PRIMER un número al azar 
en tre O y 9 


30 Asigna a variable SEGUNDO un número al 
azar entre O y 9 

40-50 Edita los números en pantalla 
60 Inicializa la localización 764 para preparar el 
teclado en el momento que una tecla sea pre- 
sionada 

70 Establece sí el tiempo para interactuar del 
usuario finalizó 

80 Establece si el pequeño presionó alguna tecla 
85 La condición que los números eran iguales se 
cu rn pie e inere rn e n ta la va r í a b I e P U N T O S p o r 
el acierto 

90 E rró el usuario y por lo tanto se e descuenta 
100 E rró también, pues no presionó las teclas y 
los números eran iguales 

110 Acertó, pues los números eran diferentes 
160 Incrementa la variable que cuenta el núme- 
ro de intentos 

170 Condición de término con variable MAXIMO 
180 Direcciona hacia un nuevo intento 
200 Inicializa el modo gráfico 18: pantalla de 
calificación 

210-230 Despliega nota del pequeño por su ren- 
dimiento. 

POSIBLES MODIFICACIONES 

1 r Regular el tiempo para que se transforme en 
una medición de velocidad de reflejos. Para 
ello modifique línea 70: 

— Si desea más tiempo debe aumentar el valor 

( 1 ) 

— Si desea menos tiempo debe recurrir a la 
localización 20, Puede partir dev240. Ej: 

IF PEEKÍ20) > 240 THEN T — 1: GOTO 100 

Si desea disminuir aún más, disminuya el 
valor 240 a 200, etc, 

2, Aumentar un tercer número. 

Esto requiere crear utras líneas y modificare! 
programa. 

Es necesario precisar si el efecto de aprendi- 
zaje es el esperado en el pequeño. 

3 , Agregar una pequeña melodía de un cuento 
y tocarla cuando el pequeño acierta. 


Esta sección tiene por objetivo demostrar que 
el ATAR! es una herramienta eficaz para evaluar 
habilidades específicas a todo nivel. 

El ingenio y la creación de los adultos pueden 
ayudar y estimular que los procesos de aprendizaje 
de los menores puedan proyectarse dentro de las 
características individuales del suyo. 

Otra demostración es que no se necesita de 
grandes conocimientos de computación o de dispo- 
nibilidad de tiempo para desarrollar pequeños pro- 
gramas que serán útiles. 

Los programas preparados para un caso parti- 
cular tendrán en esta columna la posibilidad de 
extenderlo a todos los lectores de MUNDO ATAR! 
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I 


APLICACIONES 


Clases con ATARI 


Nuestra columna se dirige esta vez a los más 
pequeños de la casa, que son parte de la genera- 
ción que utilizará extensamente ta computación 
en el futuro. 

La motivación para el tema de hoy fue dada 
por un pequeño, que al ser consultado: - ¿Cuánto 
es 8 más 5? comenzó con los dedos a contar; 


10 REM PROGRAMA PARA SUMAR 
1 5 CUENTA= 0 : ERRQR= 0 
20 DIM ANS $ ( 2 ) 

30 FRINT CHR$ (125) 

40 K^INT ( RND { 0 } * 8 ) +1 
45 LOC- 40080 
50 T=K : GOSUB 1000 
60 POSITION 34,2:? K 
ÍJG POSITION 30,6:? " + " 

100 M- INT { RMD ( 0 ) * 8 ) +1 
LOC=4 0 4 0 0 
T = M : GOSUB 1000 
POSITION 34,10:? M 
POSITION 0,11:? 


110 

120 

130 

150 

f V 


fl 


H 


TI 


CUANTO ES 


0,15:? 

0^15: INPUT ÁNS$ 


GOTO 1200 


200 RES = K +M 
210 POS I TI ON 2,14 :? 

+- " ;M 

215 POSITION 
220 POSITION 
230 TRAP 210 
240 USTED = VAL ( ANS $ ) 

250 IF USTED=RE5 THEN 
260 ERROR "ERROR +1 
2? 0 GOTO 210 
1000 FOR J=1 TO T 
1010 INC-J*2 
1020 POKE LOC-HNC,04 
1030 NEXT J 
1040 RETURN 

1200 CUENTA=CUENTA+1:? CHR$(253) 
1210 IF CUENTA= 21 THEN GOTO 2000 
GOTO 30 
? CHR$ í 1 2 5 ) : ? 

POSITION 10,2 

2,10 


It . i? ■ ti 
t * t 


ir 


1220 
2000 
20 3 0 
2040 
ENTA 
2050 
ROR 
2060 
2070 


POSITION 


CHR$í 253 ) 

? "RESULTADOS" 
? "ACIERTOS 


_ ir 


CU 


POSITION 


2,15 


"ERRORES 


= ";er 


END 

GOTO 


30 



- Uno, dos, tres, cuatro, cinco, seis, siete, 
ocho,,, luego quiso adicionar los otros cinco, 
pero... se encontró con que le faltaban dedos" piara 
terminar, 

Pensando en el problema'' encontramos que 
este pequeño tuvo problemas para Identificar y 
asociar el número con la palabra. 

Pregunté a mi ATARI: ¿Eres capaz de ayudar 
a mi amiguito?. El está siempre dispuesto, de mo- 
do que con unos minutos de gasto de electricidad 
aparecen dos programas simples creados para este 
menester. 

El listado 1 suma números que representa ade- 
más mediante figuras, 

E! listado 2 resta números en que el efecto v¡ 
sual importante es la ubicación de la representa- 
ción gráfica de los números. 

Liste a continuación los programas y pruébe- 
los con los peques de la casa. Modifique los para 
que puedan servir en otras aplicaciones; 



10 REM PROGRAMA PARA RESTAR 
15 CUENTA- 0 : ERROR S 0 
20 DIM ANS$(2) 

30 PRlNT CHR$ [125 ) 

40 K’INTÍ RND(Ü }*&)+! 

45 LQC=4 00 8 0 
50 T=K : GOSUB 1000 


► 
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20 

PROGRAMAS 
PARA USTED 


— UTI 03 (manejo banco secundario 130XE) 
— POS 2.5 (manejo del DOS de ATARt) 

_ MAPA DE MEMORIA (uso localizaciones) 
^ ASSEMBLER I (lenguaje de máquina) 

- PROGRAMACION ESTRUCTURADA 

Aprendizaje de Lenguaje BASIC 

- BASIC BASICO (para 13GXE) 

- 33 LECCIONES PARA ATARI (800 XÜ 

- BASIC AVANZADO 

- PRACTICANDO CON ATARI BASIC 

- 30 RUTINAS PARA ATARI 

- 60 FORMULAS PARA ATARI 

Uso y manejo de técnicas 

- LISTA DE DESPLIEGUE 

- SET DE CARACTERES 

- SCROLLING 

- PLAYER/M1SSIL 

_ DU (Display List Interrupt) 

- VBI (Vertical Blank Interrupt) 

Colecciones 

- ENCICLOPEDIA 800 XL 

- ENCICLOPEDIA 130 XE 

- TECNICAS PARA ATARI 


Solicite demostración en Centros ATAR! 
y distribuidores autorizados a lo largo del pafs 



APLICACIONES: continuación 


6 0 POS I TIGN 3 4,2;? K 
SO POS I TI 0N 30,6:? 

100 M=INT[RND( 0 )*&) +1 

101 XF M>K THEN 100 
110 LÜC= 4 Q 4 00 + INC 
120 T=M : GOSUB 1600 
130 POSITION 34,10 r? M 
150 POSITION 0,11 í ? " 

V* - 

20 í RES-K-M 

210 POS I TIQN 2,14:? n CUANTO ES H ;K;" 

“ ■ M r * 

215 POSICION 0,15:? " «■ 

220 POS I TI ON 0,15:1 NPUT ANS$ 

230 TRAP 210 

240 USTED=VAL( ANS$) 

250 IF USTED-RES THEN GOTO 1200 

260 ERROR = ERROR + 1 

270 GOTO 210 

1000 POR J*1 TO T 

1010 INC- J * 2 

1020 POKE LOC+INC, 64 

1030 NEXT J 

1040 RETURN 

1200 CUENTA=CUENTA+ 1 ; ? CHR$(253) 

1210 IF CUEflTA-21 THEN GOTO 2000 
1220 GOTO 30 
1600 AUM-Q 

1605 FOR J=M TO 1 STEP -1 
16 20 POKE LQC^AUM, 8 4 
1625 AUH^AUM+2 
1630 NEXT J 
1640 RETURN 

2000 ? CHR?E125)r? CHR$ (253) 

2030 POS ITION 10,2:? "RESULTADOS" 

2040 POSITION 2,10:? h ACIERTOS = ";CU 
ENTA 

2050 POSITION 2,15:? "ERRORES = n ; ER 
ROR 

2060 END 
2070 GOTO 30 


Comentarios al listado; 

Variable LOC: se relacione con las localiza- 
ciones de memoria que corresponden a la pantalla 
en modo gráfico 0. 

El puntero para la primera posición de panta- 
lla se encuentra registrado en las localizaciones 
88 y 89. 

ACTIVIDAD: 

Encienda su ATARI con BASIC incluido y 
digite en modo directo; 

PftlNT PEEKÍ80) +25G * PEEKÍ89) 

En' el caso del ATARI 800 XL ó 130 XE el 
valor de retorno es 40000. 

Con esta Información puede usted adaptar el 
programa para el ATARI 600 XL Al valor retor- 
nado por el 600 XL adicione las cantidades equi- 
valentes: 80, 400. 

Para más información al respecto ver en la 
columna DE BYTE EN BYTE de este mes las 
localizaciones 87, 88 y 89. 
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PRACTICA 



La columna PROYECTO continua este mes 
con la etapa de definición de estructuras para el 
ingreso de datos. 

El primer problema a solucionar es el listado 
de alumnos del curso. Este listado debe contem- 
plar como mínimo las siguientes opciones: 

A. Iniclalizar el listado en desorden. 

B. Ordenar el listado (hacer lista del curso). 

C. Buscar un nombre en lo lista. 

D. Imprimir el listado en la impresora. 

E. Modificar un nombre del listado. 

F. Ingresar un nuevo nombre a la Msta base, 

G. Grabar listado de nombres. 

H. Cargar el listado de nombres. 

En el funcionamiento de un colegio estas listas 
son una necesidad fundamental para la organiza- 
ción del curso. 

El tener acceso rápido a dichas listas es de vi- 
tal importancia. 

Ahora, con la idea de que el funcionamiento 
del colegio implica un sistema, esta lista se almace- 
nará en forma de archivo independiente en el 
periférico de memoria permanente (casetera, dis- 
kettera). 

La columna TORPEDO nos proporciona ma- 
terial inicial para abordar nuestro problema. 
Observe la estrategia y el método de resolu- 
ción de los problemas. El reunir material en forma 


de pequeños bloques, rutinas o subrutinas hacen 
más fácil y comprensible el desarrollo de una pro- 
gramación. 

Tomemos como base este programa y modifi- 
que en línea 20: 

M = RG Número máximo de alumnos, 

E = 30 Se mantiene caracteres máximos para 
el nombre de un alumno. 

La línea 30 modifica a DIM; 

30 ARRES (A + 2b ELEM$(Eb NUM$f2) r RES$ÍT) 

Agregamos dos bytes al arreglo para guardar el 
número de alumos del curso. 

4020 TRAP 4020: PFHNT "Digite número de alum- 
nos de su curso”: INPUT NUM$: N = VAUlMU!Yt$} 
4025 JF N >50 THEN GOTO 4020 
4095 ARRE$(A T 1 , A H-2)“NÜIW$ 

Esta rutina nos cubre dos opciones: 

1 , ! metalizar el listado en desorden, 

2. Buscar un elemento de la lista. 

¿Cómo solucionamos el problema para las 
otras opciones? 

B. ORDENAR EL LISTADO 

Se requiere de una rutina que ordene los ele- 
mentos del string en forma alfabética . La rapidez 
puede estar dada por una rutina binaria. 
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PROCESADOR DE TEXTOS 

MULTI EDITOR 


PRACTICA: continuación 


ofL 


• PARA EL PROFESIONAL 

• PARA LA SECRETARIA 

• PARA EL ESTUDIANTE 

• PARA USTED 


PARA QUE SUS INFORMES 
Y CARTAS LUZCAN 


G. 


IMPRIMIR EL LISTADO 

Agregue las lineas: 


4500 REM RUTINA IMPRESORA 

4510 GRAPHICS 0:POSITION 10,2:? " MENU 

li 

4 52 0 PÜSITION 4,5:? " 1 TOTAL 11 
4530 POSlTIOCí 4,7:? " 2 PARCIAL" 

4540 POSITION 4,9:? « 3 NOMBRES AL AZ 
AR " 

4550 POSITION 4,11:? w 4 RETORNA AL M 
E NU" 

4600 POS I TI ON 0,16:? 11 DIGITE el numer 
o que selecciona " 

4610 INPUT M:IF INTÍMXl OR M>4 THEN 4 
600 

4620 REM DEBE IR A CARGAR LISTADO DEL 

PERI SFERICQ QUE USE 

4650 ON M GOTO 4700,4600,5000 

4700 ROM “VAL { ARRE$ ( A4-1 , Af 2 ) ) 

4710 FQR J=1 TO NUM 
4720 K = J : GOSUE 4300 
4730 LPRINT ELEM$ 

4740 NEXT J 
4750 GOTO 4500 
4800 GRAPHICS 0 

4810 PRINT "Dlglte numero de clave par 
a primer alumno lista" 

4820 INPUT PRIMER 

4830 PRINT "Dígita numero de clave par 

a ULTIMO alumno lista 11 

4840 INPUT ULTIMO 

4850 FGR J=PR1MER TO ULTIMO 

4860 K= J : GOSUB 4300 

4870 LPRINT ELEK$ 

4 880 NÉXT J 
4890 GOTO 4500 
4900 GRAPHICS 0 

4910 PRINT "Diglte numero de alumnos q 
ue desea imprimir " 

4915 INPUT NUM 
4920 FOR J = 1 TO NUM 

4930 PRINT "Dlgite numero de clave par 
a alumno" 

4940 INPUT K 
4950 GOSUB 4300 
4960 LPRINT ELEM$ 

4970 NEXT J 
4980 GOTO 4500 
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PRACTICA: continuación 


D h MODIFICAR UN NOMBRE DE LISTA 

Para modificar el nombre, las etapas a seguir- 
son las siguientes: 

1. Cargar lista de alumnos de! periférico de me- 
moria permanente. 

2. Ingresar el número de clave para alumno que 
modifica. 

3. . Validar el número dentro de los valores permi- 

tidos. 

4. Buscar el nombre, 

5. Confirmar si el nombre es el que se modifica. 

6. Retorno si existe error de ingreso de clave. 

7. Ingresar el nuevo nombre. 

8. Ingresarlo al arreglo de string, 

9. Retornar. 

El listado siguiente contiene las etapas formu- 
ladas; 


5100 REM RUTINA MODIFICA UN NOMBRE. 
5105 GRAPHICS 0 

5110 REM Carga lista del medio físico 
de grabación 

5120 POS I TI ON 2,2:? "DIGITE la Clave p 
ata el NOMBRE que modifica 11 

5130 TRAP 5120: I NPUT K 
5140 N-VALÍ ARRE$(A+l,A+2 ) ] 

5150 IF INT ( K )<1 OR K>N THEN ? "'ERROR 
DE RANGO GOTO 5120 
5160 GOSUB 4300 
5170 ? :? ELEM$ 

5160 ? "Corresponde al elemento a modi 
ficar DIGITE S/N " 

5190 INPUT RES$ 

5200 IF RES$ = ff N h OR RES$="n" THEN GRAP 
HICS 0 : GOTO 5120 

5 210 ? :? "DIGITE el nombre modificado 

(i 

5220 INPUT ELEM$ 

5230 L=BEN(ELEM$) 

5240 INC= ( K-l í *E 

5250 ARRES í 1+ INC, E+INC ) =ELEMS 

5260 RETURN 


La opción Ingresar un nuevo nombre a la lista 

será asignada a usted para desarrollarla como 
tarea para el próximo número. Ocupe las líneas 
5300 a 5500, Elija como modelo la opción Modi- 
fica. 

Indique las etapas en palabras y a continua- 
ción programe las líneas correspondientes. 

Para la opción B, Ordenar el listado, nos ayu- 
dará la columna TORPEDO del próximo número- 
nos proporcionaré una rutina simple para ordenar 
elementos de un string. 

•Para las opciones G y H. Grabar y Cargar ar- 
chivo de listado de nombres nos remitiremos a 
1 33 co I u m ñas espec ¡alidadas: D OM I N A N DO LA 


1050 y CONTROLANDO E L CASSETTE, 

Primero grabe el programa residente en me- 
moria con un nombre en su periférico disponible 
fcasetera o diskettera). Utilice para ello; 

SAVE "D; proyecto, MAY" (diskettera) 
es A ve (casetera) 

Ahora pruebe las posibilidades que tiene con 
este fragmento de programa; 

1. Ejecute con RUN y podrá crear un listado-de 
alumnos para su curso y buscar un de terna! 
nado nombre por la clave. 

2. Digite GOTO 4500 y podrá seleccionar una 
Impresión si posee una impresora. 

3. Digite 5100 y podrá modificar uno de los 
nombres de su lista original. 

Qué poco práctico resulta tener que recor- 
darse !a línea, detener el programa y ejecutar un 
GOTO cada vez que se desea ejecutar una rutina. 

Para optimizar esta situación existen los 
MENU de selección y rutinas para seleccionar un 
ítem del menú en forma rápida. 

Esta será también una tarea para usted: pro- 
porcionar una rutina para seleccionar el menú. 
El próximo mes completaremos ei programa 
listado de alumnos del curso. 

Profesor ATAR1N 


ERRATA 

Queremos advertir a nuestros lectores 
de un error que se deslizó en el número 
Ode MUNDOATARJ. 

El programa No. 1 de la columna Apli- 
caciones: Clases con ATAR í r página 36, 
se desarrolla por medio de un ciclo de 1 a 
10, el que quedó abierto por omisión de 
la instrucción NEXT J. 

Para solucionar dicho error rogamos digí- 
tar la siguiente línea: 

65 NEXT J 

Agradecemos especialmente la gentil cola- 
boración de dos lectores: Srta. Gabriela 
Tapia A. y Sr. Héctor Alegría A, ambos 
de la ciudad de Concepción, quienes nos 
advirtieron acertadamente al respecto. 
A ellos y a nuestros muchos lectores que 
nos han escrito les hemos respondido en 
forma privada, Gracias por su estímulo. 

OBSERVACION: Nos gustaría que al en- 
viar cartas a la redacción nos proporciona- 
ran más información acerca de ustedes: 
edad, ocupación, configuración de equi- 
po, necesidades de software, etc. 
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ATARI 1 040 ST 


Hoy en día el mercado de ios 
computadores personales está re- 
gido principalmente por una 
enorme competencia de cualida- 
des versus precio, y como ya es 
costumbre, ATARI tiene mucho 
que decir. 

Hace aproximadamente un 
año y medio atrás ATARI hizo 
noticia con el lanzamiento de su 


computador estrella, el A TARI 
520 ST r asombrando al mundo 
con un equipo de características 
espectaculares y con un precio 
muy por debajo de ¡o usual. Lue- 
go de unos pocos meses logró ha- 
cernos ver que no habíamos per- 
dido nuestra capacidad de asom- 
bro al lanzar al mercado el her- 
mano mayor del 520 ST r el ATA- 


1040 ST, el primer computa- 
dor del mundo de 1 Megabyte de 
RAM, con un precio accesible. 
Esto le ha valido el título en Eu- 
ropa del Computador del Año 
1906, 

Este título no es injustifica- 
do, pensemos que estarnos ha- 
blando de un equipo que tiene 
la capacidad do memoria de un 
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Main Frame de aproximadamen- 
te US $ 30.000, posee un proce- 
sador tanto o mas veloz que los 
de computadores que hasta hace 
pocos años se usaban para mane- 
jar la información de un banco. 
A esto agreguémosle una tremen- 
da facilidad de uso y una com- 
pleta gama de programas para las 
más diversas aplicaciones. Es in- 
dudable que estarnos hablando 
de un equipo capaz de hacer co- 
sas que son difíciles de Imaginar 
usando los métodos tradiciona- 
les, pero que aún así se nos pre- 
senta a un precio realmente 
razonable si lo comparamos con 
equipos de similares caracterís- 
ticas. 

Computador para todos 

Al igual que en Europa, el 
entusiasmo demostrado por el 
mercado norteamericano ha si 
do notable, alcanzando en el 
primer año de existencia del 
ATAR I 1040 ST la cifra record 
de 200.000 unidades vendidas. 
La revista Byte, vocero de la in- 
dustria computadora!, calificó 
este equipo como el computador 
para todos , agregando que el 
1040 ST es una de fas piedras an- 
gulares de la computación perso- 
nal \ Esta última frase se refiere a 
que con el ATAR! 1 040 ST se 
ha puesto al alcance de la mayo- 
ría de fas personas un computa- 
dor de características que antes 
estaban reservadas a equipos de 
alto costo y por consiguiente a 
muy pocas personas. 

En cuanto a las características 
técnicas, éstas son prácticamente 
iguales a las de! computador 
ATAR! 520 ST, salvo tres dife- 
rencias de consideración, La pri- 
mera es el volumen de memoria 
RAM que asciende hasta 1024 
Kbytes, por lo tanto el ATARf 
1Q40ST cuenta con exactamen- 
te el doble de la memoria de su 
hermano menor. Además este 
computador cuenta con una dts- 
kettera de doble lado y 720 
Kbytes de almacenamiento in- 
corporada en la consola, fo que 
evita los cables externos. Esta 
diskeítera es equivalente a la dis- 
kettera ST314. Por último, la 


tercera diferencia esta dada por 
la ausencia del modulador de ra- 
dio frecuencia (conexión a tele- 
visor). Esto se debe a que en 
ATAR! Corp. determinaron que 
dadas las capacidades superiores 
de este equipo, las mayores 
ventas se darían dentro de las 
aplicaciones profesionales, como 
esta clones de traba] o , d o n d e. el 
uso prolongado del equipo re- 
quiere de una pantalla de alta 
calidad que disminuye el cansan- 
cio de la vista. 


Las diferencias anteriores no 
afectan el sistema operativo, por 
lo tanto, ambos equipos son ab- 
solutamente compatibles en lo 
que respecta al software, sólo 
que el ATARI 1040ST permite 
un mayor manejo de datos en 
memoria. 

El ATARI 1040 ST no sólo 
resuelve los mismos problemas 
que los otros computadores re- 
suelven, además resuelve el pro- 
blema que los otros computado- 
res crearon: EL PRECIO. 



CARACTERISTICAS TECNICAS 


ARQUITECTURA 

TECLADO 

-a-. 

RAM standard de 1024 Kb 

— 

Ergonómico t.ipo QWERTY 

— 

CPU Motorola 63000 

— 

94 tedas {10 de función ) 

— 

CPU de 16/32 bits 

— 

Teclado numérico separado 

, 

Reloj de 3 MRz 

— 

Tecles de cursor 

— 

ROM de 192 Kbytes 

— 

Procesador independiente 

— 

Sistema Operativo TOS combinado 

— 

Regulación de presión 


con CP/M 03 K y GEM 

Mouse de dos botones 

1 

Regulación de respuesta 

— 

Cartridgé de basta 192 K 

SONIDO 

— Tres canales 

MEDIOS DE ALMACENAMIENTO 


Cu Ei tro octavas 

— 

Unidad de diskette esta incorporada 
Dískettes de 3 1/2' r 

— 

Control de sintetizadores 


Capacidad 360 Kb ó 72D Kb 

PUERTAS DE ENTRADA Y SALIDA 


Port Disco Doro 

— 

Impresora CENTRONICS 


Capacidad 29, 30 ó 60 Mb 

— 

Pon RS232-C 

-r- 

Velocidad Disco Duro: 10 Mb/seg. 


Floppy Disk 5 1/4” 

Floppy Disk 3 1/2" 

GRAFICOS 

— 

DMA (Hard Disk} 

— 

Alta resolución monocromo 64OX200 

■ 

MIDI {Instrumentos musicales) 


Media resolución color 640X200 

— 

Mouse 

— 

Baja resolución color 320X200 


Joystick 

— 

Paleta de 51 2 colores 

— 

Cartridge 
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Planilla electrónica 


VI P GEM 


Cuando hablamos de compu- 
tadores personales o PCs., por lo 
general se los asocia con un pro- 
grama de gran divulgación, el 
LOTUS 123, programa que ha 
motivado por So menos la com- 
pra del 10°/o de los computado- 
res IBM o IBM compatibles en el 
mundo entero, y esto con justa 
razón, ya que se trata de un po- 
derosísimo programa que realiza 
tres funciones básicas muy usa- 
das en computación, la primera 
es la función de planilla electró- 
nica, que es una hoja de cálculo 
formada’ por celdas que puede 
ser ocupada por números u ope- 
raciones matemáticas en base a 
una o más de estas celdas. La 
segunda función que realiza es la 
de base de datos, o la capacidad 
de ordenar datos por diferentes 
parámetros, que asociada a la ca- 
pacidad de cálculo numérico per- 
mite crear una infinidad de api i 
caciones corno: inventarios, flu- 
jos de caja, sistemas de cuentas 
corrientes, o tal vez generar un 
menú electrónico que le permita 
saber cuantas calorías tendría un 
plato variando sus ingredientes. 
Y por último cuenta con la faci- 
lidad de generar gráficos para po- 
der visualizar más fácilmente los 
datos con que se está trabajando. 


¿LOTUS o VIP? 


Tal vez usted se preguntará 
por qué hablamos tanto del -LO- 
TUS 123 sí este es un artículo 
sobre el VIP PROFESSIONAL 
GEM. Fisto se debe a que ambos 
programas hacen lo mismo, y no 
sólo eso, pero con ligeras dife- 
rencias. La primera es la capaci- 
dad, el VIP posee cuatro veces 
más capacidad que el LOTUS 


40 


123, y además usa todas las ca- 
pacidades del GEFvl (manejador 
de ambiente gráfico) cosa que 
simplifica tremendamente el uso 
del programa. 

Una de las cosas que caracte- 
riza al LOTUS es su uso media- 
namente complicado, si usted 
observa la publicidad de los insti- 
tutos de computación, en las 
publicaciones especializadas en 
PCs. podrá ver gran cantidad de 
cursos de LOTUS que pueden 
durar desde pocas semanas hasta 
varios meses. Con la implementa- 


clón del GEM en el VIP usted 
podrá hacer en dos días lo mis- 
mo que haría en veinte si usara 
el LOTUS, Esto se debe a que en 
el GEM el uso deh programa es 
intuitivo, o sea, el usuario busca 
Sa instrucción que desea ejecutar 
en lugar de me mor izar la, utili- 
zando así la memoria visual y 
mecánica además de la memoria 
abstracto. 

Además, y corno si esto fuera 
poco, una ventaja adicional de 
VIP PROFESSIONAL GEM, es 
la capacidad de trabajar como 
procesador de texto, lo que per- 
mitiría por ejemplo emitir cartas 
seleccionando entre sus clientes 
a los deudores y emitirles cartas 
con el cálculo de los intereses 
desde su último vencimiento (to- 
do esto en forma automática). 


Sin duda el VIP es una de las 
más poderosas y versátiles herra- 
mientas disponibles hoy día para 
los computadores ATA Rl 1040 
ST y 320 ST. * 



VtP GEM: Aplicación profesional a otro nivel para fa línea ST de ATAR i 
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Panasonic 

Automatización de Oficinas 


MR 


PANASONIC Y ATARI 
SE ENTRETIENEN JUNTOS 




AUTOMATIZACION 
DE ORCINAS 


MELLAFE Y SALAS 


M.R. 


ANTOFAGASTA: COMERCIAL PFtAT, Latorre 2500 - 5 223000. SANTIAGO: COELSA COMPUTACION, Vicuña Mackenoa 1705 - 
F. 558(1006- MULT1MATÍCA. San Antonio 73 - F 382663. CJ. COMUNICACIONES, Av. L.B. Q'Higgins 7 146 - f 727355 MAtCOM. 
ftiodom Yañvz 2675 - F. 223333Ü COMPUTEFt MARKET, Focólo de! ingles Local 60 - F. 22434/4 CONCEPCION: CRECfC S. A Los 
Acacios 7 07 - i L 371 31 7-37 UT7 Galería internacional. L. 24/25 - F 225754. TE MUCO: COMPUMATICS, M. Moni! 730 F 23 4230 
OS ORNO: COMPUMATIGS. Ramírez 670 - F. 5757 


...Y cómo lo hacen! 

Desde el momento en que la Im- 
presora KX-P1081 de PANA- 
SONIC se dio cuenta que era ab- 
solutamente compatible con el 
microcomputador ATARI ? se lo 
pasan juntos todo el día. 

La Impresora KX-P1081 de 
PANASONIC ya tiene ex- 
periencias anteriores, y siempre 
demostró ser realmente 
compatible. 

Ahora, con el microcomputador 
ATARI está nuevamente feliz: 


gráfica todo el día, comprime y 
hace las veces de una perfecta 
secretaria con una tipografía que 
es todo un lujo! 

Y si quiere saber aún más, im- 
prime listados a 120 CPS en su 
modo DRAFT, obteniendo su co- 
rrespondencia en modo NEAR 
LETTER QUALfTY a 24 CPS, y 
cuadros en modo COMPRES- 
SED a 102 CPS, todo con una 
absoluta nitidez. No en vano la 
llaman la rápida y perfecta! 
Pregunte por cualquiera de las 
Impresoras PANASONIC que hay 


en nuestro mercado 
(la KX-P1Ü82, KX-P1 592 ó ia 
KX-P1595), y verá que todas son 
100% compatibles con Jos 
microcomputadores ATARI, 

Esta confiabilidad y durabilidad, y 
una calidad a toda prueba, asegu- 
rán una relación perfecta.,, y por 
mucho tiempo. 

Línea de Impresoras PANA- 
SONIC para satisfacer todas las 
necesidades, incluso la más 
exigentes. 

Un acierto tecnológico que 
sintetiza todas las características 
que en otros son opcionales. 




LOS COLORES 
INTELIGENTES. 


AUTOMATIZACION DE OFICINAS, 

LA SUMA DE TODAS LAS VENTAJAS. 








1. Mueble 
Comp. 
Americano 
(7519/10). 


2. Mesa TV 
Video Comp 
con bandeja 
deslizad fe 
(7523/1 1 


3, Secreten 
con puerta 
abatidle y llave 
para proteger 
los 

componentes 
de su 
computador 
{7528/11}. 


4. Escritorio 
Mefody, con 
bandeja 
deslizable 
(7580/11). 


5. Centro 
modular, 
compuesto de 
escritorio base 
(7527/1 1), 
porta TV 
(7526/ 11). 
repisa lateral 
{7525/ 1 1 ) s 
cajón (7521/10) 
y mesa 
impresora 
(7524/1 1). 


Productos 
con el sello 
de calidad 
CIC. 


CICFORMATICA 

LINEA DE MUEBLES 
PARA COMPUTADORES 
PERSONALES. 


Adquiera estos modelos en las Tiendas CIC-Hogar, o en los principales Distribuidores del país 
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